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Nous attendons 
eos réalisations / 



Comment procéder ? Vous êtes 
auteur d'un programme et vous 
souhaitez le voir être publié. Il vous 
suffit de nous envoyer vos créa¬ 
tions (originales) sur support cas¬ 
sette ou disquette, accompagnées 
d’un mode d'emploi du logiciel, 
d'une liste de variables et du bon, 
ci-dessous, dûment complété. Tou¬ 
tes les propositions seront 
examinées. 


Tous nos listings parus sont rémunérés ! 


DEMANDE DE PARUTION 


NOM . PRENOM 

ADRESSE . 


TÉLÉPHONE 


NOM DU PROGRAMME 


Je certifie sur l'honneur, être I auteur de ce programme et autorise I 
les éditions AM-MAG à le publier (programme rétribué). Date et , 
| signature obligatoires (signature des parents ou d'un tuteur légal 1 
pour les mineurs) : I 
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VÉRIFICATEUR V.2 


Vous avez certainement remar¬ 
qué la présence, dans nos lis¬ 
tings, d’un numéro entre cro¬ 
chets (((XX)]). Ce numéro va vous 
permettre de pouvoir relire très 
facilement vos listings et de 
détecter à coup sûr une éven¬ 
tuelle erreur de saisie. Vous 
pourrez trouver ci-dessous trois 
courts programmes correspon¬ 
dant chacun à une version de 
CPC. Vous devrez donc saisir 
celui qui vous concerne (sans 
erreur !) et le sauvegarder. Cet 
utilitaire vous sers ira désormais 
pour tous nos listings, de ce 


numéro et des suivants. Cette 
méthode est testée depuis plu¬ 
sieurs mois par notre confrère 
allemand CPC Schneider Inter¬ 
national, que nous remercions 
pour sa collaboration. 

Mode d'emploi 

Après avoir saisir le programme, 
faites un “RUN”. L’écran doit 
normalement s’effacer et affi¬ 
cher « VÉRIFICATEUR V.2 
installé ». Pour vérifier vos lis¬ 
tings, il suffit alors de les char¬ 
ger : (CHECK.2 pour lister le 


programme avec son numéro de 
contrôle. Si celui-ci est sembla¬ 
ble au nombre entre crochets 
paru dans nos listings, la ligne 
est correcte. Si ce numéro diffère 
(soir exemple) vous avez obliga¬ 
toirement fait une erreur de sai¬ 
sie... Simple, non ? 

De la même manière, vous pour¬ 
rez tirer sur imprimante voire lis¬ 
ting avec tous les numéros de 
contrôle (comme dans nos lis 
tings) en faisant : ICHECK.8. 
Nous espérons que cette 
méthode de vérification vous 
permettra de gagner du temps en 


relecture (seuls désormais les 
numéros de contrôle sont à véri¬ 
fier par rapport à ceux qui sont 
imprimés dans ta revue) et que 
cet « auto-débbugage » décon¬ 
gestionnera les permanences 
effectuées par notre technicien. 
Au travail... 

Nota : le signe « I » (barre ver¬ 
ticale) s’obtient en appuyant 
simultanément sur <SHIFT> 
et <®>. 

Exemple 

10 DATA 2,3,4 C209J 
15 REM si erreur 
(virgule remplacée par 
un point virgule ) 

10 DATA 2; 3,4 [1873 


100 REM Vérificateur 464 
110 MEMORY lrA4FF 
120 FOR aX-ltA500 T0 lrA607 
130 READ byte* 

140 P0KE al, VAL <*t"+bytet) 

130 NEXT 
160 CLSiPRINT 

170 PRINT"Verificateur V.2 464 
inatalle" 

160 CALL IA300IION 
190 i 

200 DATA 21,09,a5,01,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,I8,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,98,aa,c3 
250 DATA a8,a5,21,27,aS,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 06,dd,11,3a,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,11,01,00,cd,a2 
310 DATA cl ,cd,a3,e7,e3,4e,23,46 
320 DATA 23,5e,23,56,el,78,bl,c8 
330 DATA cd,3c,c4,e5,09,e3,cd,63 
340 DATA el,21,a4,ac,cd,7a,a5,el 
350 DATA 18,e2,e5,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,96,f2,e3,cd,f6 
370 DATA a5,cd,4e,c3,el,7e,a7,c8 
380 DATA cd,98,a5,cd,4e,c3,18,f5 
390 DATA 3a,24,ac,d6,08,47,7e,a7 
400 DATA cB,cd,45,el,23,10,f7,c9 
410 DATA cd,24,a5,f5,c5,d5,»5,cd 
420 DATA ba,a5,cd,f6,a5,al,dl,cl 
430 DATA fl,c9,eb,lb,af,47,67,6f 
440 DATA 2f,32,23,a5,13,1a,d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,8a,ff,4f 
500 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,5c,c3,3e,5b,cd,5c ,c3 
520 DATA cd,79,ee,3e,5d,c3,5c,c3 


100 REM Vérificateur 664 

110 MEMORY lrA4FF 

120 FOR aï-*rA500 T0 IA607 

130 READ bytef 

140 P0KE aZ,VAL(*fc*+byte*) 

150 NEXT 
160 CLSiPRINT 

170 PRINT-Verificateur V.2 664 
inttalle* 

180 CALL IA500IION 
190 i 

200 DATA 21,09,a3,01,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,aS,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,02,ac,c3 
250 DATA a8,a5,21,27,«5,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 4c,cb,11,5b,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,ll,01,00,cd,a9 
310 DATA c1,cd,69,e8,e5,4e,23,46 
320 DATA 23,Se,23,56,el,78,bl,cB 
330 DATA cd,75,c4,e5,09,e3,cd,59 
340 DATA a2,21,Ba,ac,cd,7a,a5,el 
350 DATA 18,e2,eS,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,58,f3,e3,cd,f6 
370 DATA a5,cd,9b,c3,el,7e,a7,c8 
380 DATA cd,98,a5,cd,9b,c3,18,fS 
390 DATA 3a,09,ac,d6,08,47,7e,a7 
400 DATA cB,cd,22,e2,23,10,f7,c9 
410 DATA Cd,24,a5,f5,c5,d5,e5,cd 
420 DATA ba,a5,cd,f6,a5,el,d 1 ,d 
430 DATA fl,c9,eb,lb,af,47,67,6f 
440 DATA 2f,32,23,a5,13,1a,d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,aS,3a 
490 DATA 23,a5,a7,79,c4,ab,ff,4f 
500 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,a3,c3,3e,5b,cd,a3,c9 
520 DATA cd,49,ef,3e,Sd,c3,a3,c3 


100 REM Vérificateur 6128 

110 MEMORY 4A4 FF 

120 FOR aX-trASOO T0 lcA607 

130 READ bytef 

140 P0KE aX,VALC4"*byte$) 

150 NEXT 
160 CLSiPRINT 

170 PRINT-Verificateur V.2 6128 
initalle* 

180 CALL tcASOOi ION 
190 i 

200 DATA 21,09,aS,01,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f ,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,02,ac,c3 
250 DATA a8,a5,21,27,a5,18,03,21 
260 DATA 24,a5,26,06,cd,00,b9,c3 
270 DATA 49,cb,11,5e,bd,01,03,00 
280 DATA td,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,11,01,00,cd,a6 
310 DATA cl,cd,64,e8,eS,4e,23,46 
320 DATA 23,5e,23,56,el,7B,bl,c8 
330 DATA cd,72,c4,e5,09,e3,cd,54 
340 DATA e2,21,8a,ac,cd,7a,a5,el 
350 DATA 18,e2,e5,cd,ba,aS,e3,cd 
360 DATA 98,a5,cd,53,f3,e3,cd,f6 
370 DATA a5,cd,9B,c3,el,7e,a7,c8 
380 DATA cd,9B,a5,cd,98,c3,18,f5 
390 DATA 3a,09,ac,d6,08,47,7e,a7 
400 DATA c8,cd,ld,e2,23,10,f7,c9 
410 DATA cd,24,a5,f5,c5,d5,*5,cd 
420 DATA ba,a5,cd , f6,aS,11,dl ,d 
430 DATA fl,c9,eb,lb,af,47,67,6f 
440 DATA 2f,32,23,a5,13,la,d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,aS,al,fe 
470 DATA 20,2B,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,ab,ff,4f 
500 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,a0,c3,3e,5b,cd,a0,c3 
520 DATA cd,44,ef,3e,5d,c3,aO,c3 
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ous vous tèlici- entrez ta somme de contrôle 

tons d'être de correspondant à la ligne sai- 

plus en plus sie. En l'absence d'erreur, 

nombreux à radresse suivante s'affiche 

nous commun!- etc. Dans le cas contraire, un 

quer des pro■ signal sonore retentit et le 

grammes réalisés partielle- message 'ERREUR ! ' vous 

ment ou totalement en langage signale une bévue. Pas de 

machine. Les avantages de ce panique. puisque l'adresse 

type de programmation ne sont de la ligne litigieuse se réaf- 

plus à démontrer, ainsi que fiche. Il suffit donc de retaper 

l'exceptionnelle qualité de la cette dernière De plus, 

plupart des créations. Malheu- sachez qu 'en cours de sac 

reusement, la saisie par le lec- sie, la touche DEL est 

teur d'une foule considérable opérationnelle, 

de codes machines n 'est pas Maintenant, comment sauve- 

une partie de plaisir. AMSAISIE garder sur disquette (ou cas- 

a donc été créé dans le but sette) le langage machine 

louable de vous faire profiter de aussi facilement entré en 

quelques petites merveilles, en mémoire ? Tout simplement 

vous évitant un maximum de par la commande 'S qui 

contraintes. vous réclamera préalable- 

Il doit être conservé précieuse- ment le nom du programme 

ment et utilisé chaque fois que à sauver. Toutefois deux 

vous découvrirez dans nos solutions s 'oifrent à vous 

colonnes, un listing de codes — Vous êtes fou : et venez 

machines au format approprié de saisir en une seule fois, la 

Exemple totalité des codes hexadé- 


fichier texemple : PENDU1) DU3. etc.). Finalement, char- 

A ta fin de la sauvegarde, gez à la suite tous les fichiers 
l'adresse suivante s'affiche ; (n 'oubliez pas le MEMORY 
notez-ia. Cette adresse sera adéquat) et effectuez une 
‘t'adresse de début qu'il sauvegarde totale et dêfini- 
conviendra de spécifier lors tive. par ia commande indi- 
de la reprise de votre travail quée dans le mode d'emploi 
(PENDU2). Créez de ia sorte. du programme (exemple 
une suite de fichiers binaires SA VE "PENDU. BIN' b,&8D■ 
(PENDU!, PENDU2. PEN- DO. &10AC Enfantin ! 

10 ' * AMSAISIE par Denis JARRIL * [16601 

20 MEMORY «<2000 ! DIM ( 18 ) : MODE ! : B E t 76711 
ORDER 0: INK 0,0 : IN K 1,13 !CLS! PR I NT : 

PRINT" I pour changer l'adresse cou 
rante 11 : PR INT" S pour sauver les don 
nees"SPRINT" Tapez les caractères s 
ans espace ni return (tout se T 
ait automatiquement)."iPRINT 
30 PRINT:INPUT” ADRESSE DE DEPART : [41101 
",Ai:Dt=At: IF Al=”" THEN 30 
40 A = VAL ( " V+Af) C12733 

50 I=0:AF=H£Xt(A,4) : PR I NT ! PR INT Aij [32001 
:C=VAL<”!("HEFT» (A», 2) ) + VAL < " S< “ 
eRIGHTÎ<A't, 2 M 

60 TE = " " ! WHILE T»=“":CALL !<BB8A:T* = [34541 
INKEYt: CALL !<BB8D: WENDi T*=UPPER* (Tt 

) 

70 IE T $ = " I " THEN CLS:RUN U1321 

80 IF Tt< >"S" THEN 110 ELSE D = VAL <" [33131 
!t“ +DÏ) JIF D>0 AND A<0 THEN A=A+6553 
6 

90 PRINT:PRINT: INPUT" NOM : ",N t: I C 3394 1 
F N'tO" THEN SAVE N*,B,D,A-D+l 
100 GOTO 50 C3841 

110 1F T*«CHR*(127) THEN 130 ELSE C74053 



, . , cimaux (ouf f). Pas de pro- 

Mode d'emploi blême, appuyez sur ’S et 

votre programme se trouvera 
Après lancement, spécifiez entièrement sauvegardé, 

en hexadécimal (sans le pré- après l'entrée du nom de 

fixe &') l'adresse de début fichier et l’appui sur 

d'implantation du L.M. Celle- <RETURN> 

ci s 'a ffiche, suivie de et — Vous êtes raisonnable et 

d'un curseur clignotant désirez morceler votre sai- 

Entrez la série de huit codes, sie Au moment de stoper 

sans vous préoccuper des momentanément votre ou- 

espaces et sans validez par vrage pour le poursuivre ulté- 

RETURN (tout ceia se réalise neurement. appuyez sur S' 

automatiquement) En fin de et attribuez un numéro 

ligne et à l'affichage de :, d'ordre à votre nom de 


IF 1 = 0 THEN 60 ELSE 1 = 1-1 SPRINT CHR 
S(8);" "î CHRP(8)i: IF I/2< > ROUND <1/2 
) THEN PRINT C H R * < 8)s" "J CHRt(8); 

120 GOTO 60 [3901 

130 IF T * < ” 0 " OR T * > " F 11 THEN SOUND [26931 

7,150,20:GOTO 60 

140 IF TI<”A" AND T*>"9“ THEN SOUND [26321 
7,150,20 : GOTO 60 

150 PRINT T * ; : IF 1 = 15 THEN PRINT”:" [32781 
î ELSE IF I/2OR0UNDU/21 THEN PRIN 

T» ». 

160 0*(I)=Tt C5921 

170 1=1+1:IF I<18 THEN 60 [13241 

180 FOR 1 = 0 T0 15 STEP 2: X = VAL (''!<" + [44501 

0*(I)+0* <1 + 1)1 :P0KE A,XiA=A+1s C=C + X 
:NEXT:C = C AND !<FF 

190 IF C= VAL < *'«<" +0* ( I ) +0F < I +1 ) > THE C24263 
N 50 
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Sloopi 


S ur le thème classi¬ 
que du nibbler, ce 
l'eu de grande 
classe entièrement 
en langage machine 
(Joystick ou clavier), comblera 
les possesseurs de 464 (nous 
caressons l'espoir d'une adap¬ 
tation 6128). Un serpent exten¬ 
sible doit, en un temps limite et 
sans grignoter son propre 
corps, engloutir les délicieuses 
pastilles qui jonchent le sol de 
chacun des vingt tableaux 


offerts à son avidité. Sloopi 
(nom du reptile affamé) aug¬ 
mente sa vitesse d’étape en 
étape, change de point de 
départ tous les quatre tableaux 
et s 'allonge deux fois plus au 
20ème. Un éditeur offre au 
joueur la possibilité de modifier 
les tableaux existants, ou bien 
d'en créer de nouveaux. 

EDITEUR 

Le curseur rectangulaire ne se 
déplace que dans le quart gau¬ 


che supérieur de l'écran, repro¬ 
duit quatre fois afin de consti¬ 
tuer le tableau entier. 

La sélection/validation des dif¬ 
férentes options présentes en 
haut à gauche de l’écran (icô¬ 
nes). s'effectue en déplaçant le 
curseur (flèche) et en validant 
par ta barre d'espacement ou 
le bouton de tir. 

Première ligne : 

- Retour au menu. 

Tableau précédent 

- Tableau suivant 

- Mémorisation du tableau 
après modification/création, 

- Effacement (gomme). 

- Sauvegarde du nouveau jeu. 

- Modification de ta couleur de 
Sloopi (flèches <- ou ->) 

- Modification de la couleur du 
cadre (flèches <- ou ->) 

Deuxième ligne : 

■ Deux icônes fléchés pour le 
défilement des motifs (obsta¬ 
cles et vitamines). Positionnez 
la flèche sur le motif choisi et 
validez afin qu'il apparaisse 
dans le rectangle blanc. Ame¬ 
nez ce dernier jusqu ’à l'endroit 
voulu et validez en vous dépla 

791B ; 4 C C3 
7920 ! OA AA 
7928:20 CO 
7930:20 CO 
7938:OA AA 
7940:30 60 
7948:10 00 
7950:01 71 
7958:01 71 
7960:10 01 
7968:24 46 
7970:08 80 
7978:08 00 
7980:08 00 
7988:08 80 
7990:2D 83 
7998:00 40 
79A0:00 FO 
79A8:00 F0 
79B0:40 00 
7988:22 DA 
79C0:0C 0C 
79C8:0C 0C 
79D0:0C 2C 
79D8:0C 0C 



çant (ne pas oublier de mémo¬ 
riser un tableau créé). 

Nota : pour dessiner un 21ème 
tableau lorsqu 'on est au ter, 
choisir l’option • tableau 
précédent ». 

SAUVEGARDE 

Entrez les codes objet hexadé¬ 
cimaux par te programme 
Amsaisie (reportez- vous à son 
mode d emploi) en spécifiant 
7918 comme adresse de 
début Si vous morcelez votre 
saisie en plusieurs fichiers 
(SLOOPI. SLOOP2. SLOOP3, 
etc ), chargez-les à la suite 
après ur MEMORY87917 et 
effectuez une sauvegarde 
totale et définitive par la com¬ 
mande SAVE SLOOPI.BIN 
b. 8,7918. 826A5. 
Lancez te jeu par le pro¬ 
gramme loader suivant (à sau¬ 
vegarder sous un nom de votre 
choix, 10 OPENOUT “x" : 
MEMORY 87917: CLOSE 
OUT 

20 LOAD -ISLOOPI.BIN 
CALL 87E6D 

Maurice Kong A. Siou 

12 09 00 00 00 00:BB 
0A 22 02 C2 0C 22:68 
2C 22 02 C2 0C 22:Cl 
2C 22 02 C2 0C 22:C9 
0A AA 00 00 00 00:19 
22 IC 91 00 00 00:18 
18 B0 00 70 00 10: IC 
00 00 07 67 70 07:20 
00- 06 00 70 01 07: Cl 
00 17 08 08 07 76:94 
26 18 01 00 01 00:8B 
8B 80 08 10 80 80:91 

80 81 18 01 88 80: IB 

81 00 08 10 80 00:IA 
80 10 01 00 00 00:IA 
0F 06 00 00 40 00:0E 
00 00 40 DE ED 40:9C 
4F 00 04 F4 0F 04:63 
0D E0 0E D0 40 00: IC 
00 40 00 40 00 02:EB 
07 0D 20 00 20 00:81 
0C 0C 00 20 00 02:88 
0C 0C 20 00 20 00:B1 
0C 0C 00 00 00 20:89 
0C 0C 20 02 00 00:A3 

































Sioopi 


tueo 

2E 

98 

03 

OF 

00 

00 

00 

00 

31 

7C48 

OA 

OA 

AA 

A3 

OA 

OA 

30 

00 J 69 

7EB0 

42 

9B 

01 

28 

00 

ED 

BO 

ED 

BE 

”9EB 

00 

40 

00 

00 

03 

DO 

4D 

40 

01 

7C50 

OA 

OA 

OA 

A3 

OA 

OA 

OA 

OOsAB 

7EB8 

43 

68 

9F 

ED 

43 

B9 

9F 

ED 

F5 

79F0 

00 

00 

03 

00 

00 

40 

00 

00 

AC 

7C5B 

OA 

OA 

OA 

00 

03 

03 

0 3 

00» FB 

7EC0 

43 

B7 

9F 

ED 

43 

BB 

9F 

ED 

4E 

79FB 

00 

D3 

OD 

40 

00 

00 

03 

00 

94 

7C60 

EO 

CO 

CO 

CO 

DO 

CO 

CO 

62» AE 

7EC8 

43 

B5 

9F 

AF 

CD 

B4 

BB 

CD 

95 

7A00 

00 

40 

00 

00 

03 

DO 

4D 

40 

IA 
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IMAGIC 


C e programme est 
un utilitaire de tra¬ 
vail sur fichiers 
image (uniquement 
sur disquette), per¬ 
mettant de : 

- Compacter des images de 
façon très efficace (analyse 
des répétitions d'octets selon 
les lignes et les colonnes). 

- Utiliser facilement les images 
compactées, au sein des pro¬ 
grammes personnels (en parti¬ 
culier, possibilité d'afficher une 
image en l'intégrant à un fond) 

- Découper des images en mor¬ 
ceaux, isoler les éléments inté¬ 
ressants, réassembler ceux-ci 
à loisir et visualiser simplement 
le résultat de toutes ces mani¬ 
pulations. 

Entrée des couleurs 

Trois cas possibles d'entrée de 
couleurs à la demande du pro¬ 
gramme (options A et J) : 

- Entrer les deux numéros de 
couleurs associées à une 
encre. 

-Si celles-ci sont identiques, 
(ce qui est presque toujours le 
cas), entrer seulement la pre¬ 
mière couleur, puis presser 
ENTER au lieu d'introduire la 
seconde. 

- N'entrer aucune couleur pour 
une encre donnée. Dans ce 
cas, la couleur de cette encre 
ne sera pas modifiée lors de 
l'affichage de l'image. 

Compactage 
d'une image 
(durée 1 à 6 sec.) 

Lorsqu’une Image est sur le 
point d'être compactée (op¬ 
tions A, J, M et éventuellement 
L et O), celle-ci est affichée 
avec 4 barres encadrant tout 
l'écran. On dispose alors des 
commandes suivantes : 

- ENTER : la zone encadrée 


par les barres (le reste est 
éliminé) 

COPY : permet de modifier la 
couleur des barres, afin de ren¬ 
dre celles-ci plus visibles si 
nécessaire. 

Touches fléchées avec et 
sans SHIFT : déplacement 
des barres afin d'encadrer la 


Touches 0 à 9 et A à F : sé¬ 
lection de l'encre comme déjà 
évoqué. 

ESPACE : permet d'agrandir 
la zone autour de la croix. Agré¬ 
ment d'un troisième jeu de 
commandes : 

- ESPACE : retour au mode 
précédent. 



L'image que voici, résulte de l'intégration (par IMAGIC), du cheva 
lier de "Ghosts's Goblins" dans la page de présentation de "The 
way ol the exploding list". Etonnant, non? 


zone que l'on désire compac¬ 
ter. 

Touches de 0 à 9 et de A à 

F : servent à changer l'encre 
de la gomme dont la couleur 
est indiquée par la bordure. 
Touche G (fonction gom¬ 
me) : remplit avec une encre 
(celle de la couleur du bord) la 
zone encadrée. Très utile pour 
éliminer un élément indésirable 
de la zone à compacter. 

ESPACE (fonction loupe) : 

les 4 barres disparaissent et 
une croix clignotante apparaît. 
Vous disposez alors d'un 
second jeu de commandes : 

- ENTER : retour au mode pré¬ 
cédent. 


- Touches fléchées : déplace¬ 
ment du curseur. 

Touches 0 à 9 et A à F : 

sélection de l'encre. 

- COPY : effacement d'un 
point. 

SHIFT + touches flé¬ 
chées : déplacementfefface- 
ment. 

CTRL + touches fléchées : 

effacement depuis la position 
du curseur jusqu'au bord de 
l’écran (très utile mais à utiliser 
avec précaution). 

Option D : l'Information la plus 
utile est la taille dufichier. Le 
taux de compactage indique 
dans quelle proportion l'image 
a été réduite. 


Option G : entrer le nom de 
l'extension (par exemple BIN 
pour voir uniquement les 
fichiers binaires), ou presser 
ENTER pour le catalogue 
complet. 

Option I (appel du pro¬ 
gramme ADAPT) : l une des 

plus intéressante du pro¬ 
gramme. puisqu'elle permet la 
création d'une routine de 
décompactage séparée, 
implantée sous forme de RSX 
ou de CALL à une adresse de 
votre choix. Les images en 
mémoire peuvent être affi¬ 
chées très simplement en res¬ 
tituant ou non les couleurs des 
encres, en effaçant ou non 
l'écran et même en intégrant 
l'Image à un fond déjà présent. 
Toutes les Indications néces¬ 
saires sont Incluses. 

Option J : recompacte l'image 
déjà présente en mémoire. 
Option très utile qui permet de 
retravailler une image compac¬ 
tée, évitant ainsi de repasser 
par une image écran standard. 
A utiliser pour supprimer des 
couleurs sauvegardées, en 
rajouter, ou isoler un élément 
de l'image que l'on veut 
récupérer. 

Option K : sert essentielle¬ 
ment à recentrer une Image. 
Déplacez à l'aide des touches 
fléchées, le rectangle qui appa¬ 
raît (dont la taille est celle de 
l'image) et pressez ENTER. 
Visualisation des résultats par 
l'option C. 

Option L : à utiliser lorsqu'on 
ne connaît pas les couleurs, ou 
pour faire des essais en vue 
d'adapter les palettes des deux 
images de provenance diffé¬ 
rente. Les touches 0 à 9 et A 
à F permettent de sélectionner 
une encre et les flèches haut et 
bas, d’en modifier la couleur. 
Option M : permet, sur une 
image affichée, de transformer 
13 
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une encre en une autre. Encore 
une fois, le rôle de cette option 
est d'aider à rendre compati¬ 
bles deux images de prove¬ 
nance différente. Par exemple : 
intégrer une image B à une 
image A (le fond). La couleur 1 
(bleu) est pour A celle de 
l'encre 3 et pour B, celle de 
l'encre 7. Pour rendre ces deux 
images compatibles, il faut affi¬ 
cher B et transformer en 
encre 3, tous les points en 
encre 7 (procéder ainsi pour 
toutes les encres qui posent 
problème). Si une encre doit 
rester inchangée, pressez seu¬ 
lement ENTER. 

Option N : donne les numéros 
d'encres utilisées dans une 
image. 

Option O : la routine de 
décompactage permet d'inté¬ 
grer très facilement une image 
à un fond (technique très utili¬ 
sée dans les jeux d'aventures 
comme Fer & Flamme par 
exemple), à condition de con¬ 
naître l'endroit d'affichage 
(adresse écran du coin supé¬ 
rieur gauche), ce qui nécessite 
des essais fastidieux. Grâce à 
cette option, il est possible de 
visualiser le résultat de la 
fusion des deux images. 
L'image « fond » est chargée 
dans un premier buffer (option 
A ou B) et l’élément à intégrer 
dans un second buffer (option 
0-1). Pour visualiser le résultat 
d'une intégration, utiliser 0-3. 
Le fond s'affiche, ainsi qu'un 
rectangle de la taille de l'image 
à intégrer. Soit les comman¬ 
des . 

Touches fléchées : déplace¬ 
ment du rectangle. 

- COPY : modification de sa 
couleur. 

- ESPACE : visualisation du 
résultat de l’intégration. 

- ENTER : retour au menu 
DEL : priorité couleurs 

fond/priorité élément à inté¬ 
grer. 

Une fois déterminée la position 
qui vous convient, on peut 
noter celle-ci (adresse écran à 
fournir à la routine d'affichage), 
ou rendre définitive la fusion 
des deux images (option 0-4). 
Dans ce cas, le fond est rem¬ 
placé par le résultat de la 
fusion (1er buffer). Pour l'obten¬ 
tion d'un résultat convenable, 
il faut bien sûr choisir la bonne 
encre transparente pour 
l’image à intégrer (option 0-2). 
Enfin, il reste à signaler que 
l’image chargée dans le 
second buffer, ne doit pas 
14 


dépasser 8741 octets (sous 
peine de plantage), taille large¬ 
ment suffisante. 

Sauvegarde 
des programmes 

Sauvegardez les deux premiers 
listings basic sous les noms 
respectifs de : « IMAGIC » et 
« ADAPT ». Entrez, les codes 
hexadécimaux du troisième lis¬ 
ting par le programme AMSAI- 
SIE (reportez-vous à son mode 
d’emploi). Spécifiez 454D 
comme adresse de début et 
sauvez le langage machine par 
l'option «S» sous le nom 
« IM ». Si vous ne souhaitez 
pas saisir en une seule fois la 
totalité des codes, morcelez 
votre travail en créant plusieurs 
fichiers (IM1, IM2. etc.). Ces 
derniers devront ultérieure¬ 
ment être chargés à la suite 
après un MEMORY &454C et 
sauvegardés ainsi dans un 
fichier unique : SAVE “IM ", 
b,&454D,&10D3 
N. B. : « ADAPT » est appelé 
par l'option I d'IMAGIC. mais 
peut être utilisé seul. 

Principe de la 
méthode compactage 

Chaque ligne de l'image écran 
est compactée en deux zones : 

- La zone « octets » qui contient 
les mêmes octets que la ligne 
écran, mais sans les répéti¬ 
tions de ceux identiques qui se 
suivent 

- La zone « bits de répétition », 
où chaque bit précise si un 
octet doit ou non être répété. 
Exemple : ligne d’octets 12. 14. 
14, 14, 14, 9, 9 

zone « octets » : 12, 14, 9 
zone « bits » 011101 (12 n'est 
pas répété, 14 est répété 3 fois 
et 9. une fois) 

Même procédé pour chaque 
ligne. Les zones « octets » de 
chaque ligne sont placées les 
unes à la suite des autres. Idem 
pour les zones « bits de répéti¬ 
tions ». Une fois toutes les 
lignes traitées, on dispose de 
deux grandes zones qui se sui¬ 
vent : l'une pour les octets, 
l'autre pour les bits. Devant la 
première, il en existe une autre 
très courte, dont les bits indi¬ 
quent si une ligne est ou non 
compactée. En effet, si une 
ligne comporte trop peu de 
répétitions d'octets, il est pos¬ 
sible que la taille de la ligne 
compactée soit supérieure à 
celle de la ligne d'origine. Dans 
ce cas, le compacteur recopie 


la ligne d'origine sans la modi¬ 
fier dans la zone d'octets et 
met un bit à 0 dans la zone « bit 
de compactage », pour indi¬ 
quer le non compactage de 
cette ligne (la zone « bits de 
répétition » de celle-ci est alors 
inexistante). Maintenant suivez- 
moi bien docteur : la zone « bits 
de répétition » pouvant être 
considérée comme une ligne, 
il est donc possible de la com¬ 
pacter selon le même principe 
qu’une ligne écran. C'est ce 
que réalise le compacteur 
après s'être assuré, bien sûr 
de l'avantage présenté par ce 
double compactage (ce qui 
n'est pas toujours le cas). 

Il me reste à préciser que la 
méthode utilisée pour compac¬ 
ter des lignes, peut fort bien 
s'appliquer à des colonnes. Le 
programme calcule la taille de 
l'image compactée par lignes, 
de l'image compactée par 
colonnes, puis utilise la 
méthode la plus avantageuse 
(le plus souvent, le compactage 
par colonnes). 

A l'attention des curieux 
l'image compactée propre¬ 
ment dite, est précédée d’un 


en-tête dont voici le détail : 
Octet 0 : bits 0 et i mode 
écran 

bit 2 : = 1 si compactage par 
lignes 

bit 3 : =1 si double compac¬ 
tage 

bit 4 : =1 si couleurs sauve¬ 
gardées 

Octet 1 : nb. de lignes si com¬ 
pactage par lignes (sinon, 
nb.de col.) 

Octet 2 : nb. de colonnes si 
compactage par colonnes 
(sinon, nb. de lignes) 

Octets 3 et 4 : adresse écran 
(coin supérieur gauche) de 
l'Image 

Octets 5 et 6 : taille zone 
« octets » 

Octets 7 et 8 : taille 2 e zone 
» bus de répétitions ». Ces deux 
octet: ne sont présents que 
dans e cas d'un double 
compactage 

Octets suivants : couleurs 
des e r : 'es .si la sauvegarde a 
eu lieu! Taine variable selon le 
mode écran 


Fabien SPERANZA 

10 SYMBOL &FF,&FF,&FF,0,lcFF , IFF ,0,lt [40683 
FF,&FF:IF HIMEM>9000 THEN OPENOUT’o 
"jMEMORY 8999:CL0SE0UT:LGAD 'i• n « CA 
LL 5<5063 

20 DEF INT b-zsDIM c(l,15):Z0NE 6:cm C 13769 3 
F="ABCDEFGHIJKLMNG":adep1 *9000: - 1=0 
:x2 s 0tyl = Ô:y2 îî 0:DEF FNadri. , y = ( < U 
99-y)\8)*80+(x\2 A (m+i)))M0D 2048 *(< 

199-y)M0D 8)*2048+49152 :cI = ChR* <24 3 
) +CHRF (242) +CWRF (240) +CHRK24 i ) +CHR 
F(247)+CHRF(246)+CHRF(244)*CHRfi245 
) 

30 G0SUB 700:PRINT STR IN6F(00,CHRf< C93953 
154))j: PR INT TAB(2)STR INGF<31,CHRf( 

255))” IMAGIC "STRlNGf(32,CH 
R*(255)):PRINT STRINGF<80,CHR*< 154) 

); :PRINT CHRF 123)CHRf(1) 

40 RESTORE 50)F0R i = l T0 20:READ k$ C56333 
: PR INT TAB(19)kF:NEXT: !IMS,1454D,*D 
1 D3,0: ! IMG,fc454D,*D193,0 

50 DATA A- LIRE ET COMPACTER UNE I C124803 
MAGE ECRAN NORMALE,B- LIRE ET AFFIC 
HER UNE IMAGE COMPACTEE^- AFFICHER 
L'IMAGE EN MEMOIRE,D- INFORMATIONS 
IMAGE,,E- SAUVER SOUS FORME D IMAG 
E ECRAN NORMALE,F- SAUVER SOUS F0RM 
E D'IMAGE COMPACTEE 

60 DATA G- CATALOGUE DISQUE,H- EFFA C108273 
CER FICHIER DISQUE,,I- CREER UNE RO 
UTINE DE DECOMPACTAGE,.J- RECOMPACT 
ER L'IMAGE EN MEMOIRE,K- MODIFIER L 
A POSITION DE L'IMAGE 

70 DATA L- MODIFIER LES C0ULEURS.M- [83543 
MODIFIER LES ENCRES,N- RECHERCHE D 
ES ENCRES UTILISEES,0- TRAVAIL INCR 
USTATION IMAGE,,Q- QUITTER 
80 G0SUB 470si = INSTR(cf«F,kF' : IF i T [85113 


IMAGIC 


HEN GOSUB 700S0N i GOSUB 100,170,15 
0,450,180,210,520,540,230,240,890,9 
40,270,310,350 EISE IF k*="Q"THEN C 
LS:END 

90 GOTO 30 C3403 

100 PRINT“mode écrans 0 1 ou 2 ? "| 112350] 
iGOSUB 470:IF k*<"0"0R k*>"2"THEN R 
ETURN ELSE (n=VAL<l;*> : nc 1 =2*2^ <2-<2- 
m))! PR I NT :PRINT"sauvegarde des coul 
eursi 0/N ? '• :PRINT:GOSUB 470s 1F kl 
=”0”THEN c 1 = 1 : GOSUB 550 ELSE cI=0 
110 GOSUB 500s IF k*=**THEN RETURN E 13458] 
LSE IF cl THEN GOSUB 590 ELSE GOSUB 
5B0 

120 MODE miLOAD k*,&C000!nom*-k* 12008] 

130 CALL «<4772,@>! 1,@x2 , @y 1 ,@y2: ni =x [14538] 

2\8-*l\8+l!nc=y2\2-yl\2+l:ade=FNadr 

<x1\2-<2-m),y2 S 2)!fo=INT(ade/254)if 

a=ade-256*fo:PDKE &5294,fa:POKE 652 

97,1 0 ! POKE 652AE, ni 1 POKE 652AF,nciP 

OKE &52B2, c 1 : POKE 652B3,ncl!CALL 65 

2B4iWHILE INKEY*<>"“!WEND 

140 adep=P£EK(652AC)+256*PEEK<652AD 18718) 

) itl=22089-adep+PE£KU52A4H-256*PEE 
KI&52A5)itc=22089-adep+PEEK(i!2A4)+ 

256*PEEK <«<52A7 ) ! 1 g=MIN ( tl, te I : GOSUB 
41OiGOTO 650 

150 IF nomt=""THEN 1050 ELSE GOSUB 13044] 
630!IF cl*0 THEN GOSUB 580 
160 ! IMG,adep,0,3:CALL 6BB06iRETURN 12754] 
170 CLSiGOSUB 500:IF k*="“THEN RETU 191801 
RN ELSE CALL &46BD , @kadep=22048 ! 1 
g=PEEKU.46£C)+256*P£EK(!<46£D) i IF lg 
THEN nom**k*!GOTO 150 ELSE CALL &B 
B06lRETURN 

180 IF nom* =""THEN 1050 ELSE GOSUB 114344] 
430sCLSiPRlNT"NOM DU FICHIER! "nom* 

:PRINT"Ch anger le nom ? 0/N"iG0SUB 

470 1 IF k4= "0 11 THEN INPUT"nouv. nomi 

“,k *iIF k* = ”"THEN RETURN ELSE nom* = 

ktELSE IF k*< >”N‘THEN RETURN 

190 GOSUB 630:GOSUB 510:1F cl=0 THE 11871] 

N GOSUB 580 

200 !IMG,adep,0,3!SAVE“!"+nom*,b,6C 12009) 
000,16384iRETURN 

210 IF no»*=“"THEN 1050 ELSE CLSiPR 110051] 
INT”NOM DU FICHIER! "nom*iPRtNT"Cha 
nger le no» ? 0/N":GOSUB 470: IF k4= 

""THEN RETURN ELSE IF k*="0"THEN IN 
PUT"nouv. nomi ",k*:IF k*=""THEN RE 
TURN ELSE nom*=k* 

220 GOSUB 51OiSAVE nom*,b,adep,1 giR 13810] 
ETURN 

230 PRINT“Placer la disquette conte 114346) 
nant le fichier 'ADAPT' puis presse 
r une touche"!PRINT"(ou presser A p 
our le catalogue ou R pour retour a 
u menuI":GOSUB 470i IF k*="R’’THEN RE 
TURN ELSE IF k*="'"THEN CATiGOTO 23 
0 ELSE RUN“adapt” 

240 IF nom*=""THEN 1050 ELSE GOSUB 19075) 
6301 IF cl THEN PRINT"Conserver les 
couleurs (0/N) ?"iGGSUB 470s IF k*= 

"N''TH£N cl=OiGOSUB 580iG0T0 260 ELS 
E 260 

250 PRINT’’Sauvegarde des couleurs ( 17889] 
0/N) ?" i GOSUB 470i IF k*="0"TH£N cl=- 
1 1 GOSUB 550» GOSUB 590 ELSE c!=OiGOS 
UB 580 


260 (IMG,adep,0,3iG0T0 130 11200] 

270 IF nom*=""THEN 1050 ELSE GOSUB 17170] 
630!nc=PEEK(adep+l):nl=PEEK(adep+2> 

: IF PEEK(adep)AND 4 THEN v*nl:nl=nc 
s nc = v 

280 MODE 1 !PRINT"Anc. encre Nouv, 17998) 
encre” iPRINTi PRINTi a=M762iF0R i=0 
TO ncl\2-1 : PRINT TAB(5)iiTAB ( 18)i! 

INPUT"*,k*lIF k*=""THEN v=i ELSE v= 

VAL(k*) 

290 POKE a*i,viNEXTiIF cl=0 THEN GO 12909] 
SUB 580 

300 ! IMG,adep,0,3:CALL 646FF,ncl\2, 12875) 
ade,nc,nliGOTO 130 

310 IF nom*=""THEN 1050 ELSE GOSUB 17170) 
630inc=PE£K(adep+1)ini-PEEK(adep+2) 
i IF PEEK ( adep ) AND 4 THEN v*nlml=nc 
mc=v 

320 IF cl =0 THEN GOSUB 580 11434] 

330 ! IMG,adep,0,3iCALL S,46EE,ncl\2, 16403] 
ade,ne,niiGOSUB 700sM0DE 1 : FOR i=64 
762 TO k4762*ncl\2-liv-P£EK<il:IF v 
0255 THEN PRINT V| 

340 NEXT! CALL 68B06!RETURN 1 1245] 

350 IF nom*=""THEN 1050 ELSE CLSîIF 13453] 
nom 1*0""THEN 370 

360 GOSUB 500: 1F kt="“THEN RETURN E C4096) 
LSE LOAD*!*+k*,adep1inoml*=k* 

370 GOSUB 730 1939] 

380 a=FNadr(kl\2’'(2-ml,y2\2)!GOSUB 112271) 
700:MODE 1 ! PR INT"DONNEES 2eme IMAGE 
! "SPRINT- nom!"TAB<23)nom!* sPRINT” 
encre transparente!"TAB(22)enîPRINT 
* adresse ecrani"TAB(23)"k"HEX*(a,4 
liPRINTiPRINTiPRINT 

390 PRINT" 1- CHARGER FICHIER 2eme 1II164) 
IMAGE"î PRINT" 2- SELECTION ENCRE TR 
ANSPARENTE“1PRINT" 3- POSITIONNER 2 
eme IMAGE"s PRI NT" 4- FUSION DES DEU 
X IMAGES”lPRINTiPRINT" 5- RETOUR AU 
MENU PRINCIPAL"!GOSUB 470 
400 IF k*=" 1 "THEN MODE 2lG0T0 360 C5903 

410 IF k*=”2"THEN PRINTiPRINT!INPUT 12832] 
"encre: ",emGOTO 380 

420 IF k*=”3"TH£N i = 1 !c = 0sGOSUB 740 123533 
iGOTO 380 

430 IF k*="4”THEN 450 ELSE IF k*=“5 13610] 
"THEN RETURN 

440 GOTO 380 1488) 

450 GOSUB 630!IF cl=0 THEN GOSUB 58 12462] 

0 

460 I IMG, adep,0,3:iIMG,en,adep1,FNa 12976] 
dr(k1\2 A (2-m),y2\2),c:GOSUB 130sG0T 
0 370 

470 f = 1 : GOTO 490 1940) 

480 f*0 1392) 

490 k*=UPPERt(INKEY *)iIF k*=” "THEN 13743] 

490 ELSE IF f THEN PRINT CHR*(7l|lR 
ETURN ELSE RETURN 

500 PRINT"NOM DU FICHIER (ou A pour 18619] 
catalogue)i INPUT" ", ldiIF k*=” A "T 
HEN CATiGOTO 500 ELSE IF k*“"*THEN 
RETURN 

510 PRINTiPRINT"P1acer une disquett 15784] 
e puis presser une touche"iCALL 6BB 
06:RETURN 

520 1NPUT"EX T1 ",fc*11F k*=""THEN CA 12389] 

T ELSE k*-"«."+k*i!DlR,8k* 

530 CALL 6BB06!RETURN C1826] 
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540 CATiINPUT"N0M DU FICHIER A EFFA 14545] 
CERs ”, kI! IF k*='"'THEN RETURN ELSE ! 

ERA,@kFiGOTO 540 

550 MODE 1iFOR i=0 TO ncl\2-l C1381] 

560 PRINT”Encrei"iILOCATE l2,i+liIN [9548] 
PUT”" , k$ s IF k*="“THEN c(0, i )=255îc( 

1,i)=255 ELSE c(0,i)=VAL(k*)iLOCATE 
16, i + 1 i INPUT”",kli IF k*=""THEN c <1 
,i)=c <0,i)ELSE c<1,i)=VAL<kt) 

570 NEXTs MODE 2iRETURN [1584] 

580 RESTORE 580iF0R i=0 TO ne 1\2-1 1 E5244] 
READ V! INK IjViNEXTiRETURNsDATA 1,2 
4,6,9,2,5,6,8,10,14,15,18,20,22,3,2 

590 FOR i=0 TO ncl\2-lslF c(0,i)<>2 E31433 
55 THEN INK i,c (0,i),c(1,i) 

600 NEXTiRETURN [940] 

610 IF c1=0 THEN RETURN ELSE a=adep [3996] 
+7sIF PEEK(adep)AND 8 THEN a = a + 2 
620 v=0ï FOR a = a TO a+nd-1 STEP 2>P [5115] 
OKE a,c(0,v)iPOKE a+l,c(l,v)iv=v+l! 

NEXT!RETURN 

630 ade=PEEK(adep+3)+256*PEEK<adept [8838] 
4) im=PEEK(adep)AND 3ine 1=2*2 A <2 A <2- 
m) )icl=PEEK(adep)AND 16s IF c1=0 THE 
N RETURN ELSE a=adep+7iIF PEEKUdep 
)AND 8 THEN a = a + 2 

640 v=OiFOR a=a TO a+ncl-1 STEP 2ic [4406] 
(0,v)=PEEK(a)ic(l,v)=PEEK<a+l):v=v+ 

1 1 NEXTiRETURN 

650 IF nom*=""THEN 1050 ELSE GOSUB 115779] 
630ia=adeial=adepiGOSUB 710iG0SU8 7 
OOi MODE 1 « PR I NT ■■ NOM“ TAB ( 20) " i "nom* 

)PR INT"LONG*TAB <20)*i"1 g"octet 5 "s PR 
INT“TAUX DE COMPACTAGE"TAB(20)"i“RO 
UND< ( 1-1 g/x2/yl 1*100,0) "7.“)PRINT"MO 
DE"TAB(20)"s "m 

660 PRIN,T“ADRESSE ECRAN <hex)"TAB<2 [12107] 
0)”i “HEXI< ade,2)iPR INT"LIGNES X CO 
LONNES"TAB(20)" i"x2"X“y1"octet s"! PR 
INT"COORDONNEES PIXEL"TAB<20)"I x=“ 

X 1 " y — " y 2 

670 PRINT“COULEURS"TAB(20)”! "; 1 1F [7530] 
cl=0 THEN PRINT'non sauvegardées"sC 
ALL LBB06! RETURN 

680 PRINTiPRINTiFOR i=0 TO ncl\2-li [4439] 
PRINT i,iIF c(0,i)=255 THEN PRINT" 

— V —"ELSE PRINT c(0,i),c(l,i> 

690 NEXTiCALL RBBO 61 RETURN [1245] 

700 MODE 2»INK 0,I3«INK l,OiPAPER 0 [3524] 
IPEN 1 !CLS! BORDER 3iRETURN 
710 a=a-49152!V=INT(a/2048)!a=a-v*2 [9371] 
048iy2=a\80i> 1 1 = <a MOD 801*2 A (m + 1 >1 y 
2=199-8*y2-vs yl=PEEK <a 1 + 1) 1 k 2=PEEK < 
al+2) ! IF PEEK (a! ) AND 4 THEN v=>i2 1 x2 
=yliyl=v 

720 RETURN [555] 

730 a=PEEK<adep1+3)+256*PEEK< adep 1 + [7771] 
4)tal=adepliG0SUB 710ix2=(xl+x2*2 A ( 
e+l)-l)» 2 A < 2 -iii)iyl = (y 2 -ylH)» 2 sxl=x 
1*2 A <2-m>> y2=y2*2!RETURN 
740 I IMG,adep,0,3lG0SUB 880 [ 1377] 

750 GOSUB 480!IF kt=CHR*<13)THEN RE [8885] 
TURN ELSE IF k*»" "THEN GOSUB 880i! 
IMG,en,adepl,FNadr(xl\2 A (2-«i),y2\2) 

,ciCALL LBBOAiGOTO 740 ELSE IF kt=C 
HR*<127)THEN PRINT CHR*C7> 1 1F c THE 
N c=0 ELSE c=2 

760 GOSUB 770î GOTO 750 [ 1307] 



770 ON INSTR < c *, 1; * > GOTO 780,800,820 [3016] 

,840s IF k* = CHR# <224)THEN 860 ELSE R 
ETURN 

780 v=x2+8iIF v<640 THEN GOSUB 880: [4036J 
x2=v 1 x1=x1+ 8 iGOSUB 880 
790 RETURN [555] 

800 v*xI- 81 IF v>=0 THEN GOSUB 880ix [3292] 
l = vix2=x2-8iGOSUB 880 

810 RETURN [555] 

820 v=y2+2 1 IF v<400 THEN GOSUB 880 1 [3657] 
y2=viy 1 = y1+2:GOSUB 880 
830 RETURN [555] 

840 v=y1 — 2 1 IF v>=0 THEN GOSUB 880 1 y [2988] 

1 = v 1 y2=y2-2iGOSUB 880 

850 RETURN [555] 

860 GOSUB 880iIF i«nel\2-l THEN 1=0 [3507] 
ELSE i=i+1 

870 GOSUB SSOlRETURN [1441] 

880 MOVE > 1 1 , y 1 1 DRAW M2 , y 1 ,1 : DRAW x2 [3312] 

,y2: DRAW x 1,y2:DRAW x1,v1iRETURN 

890 IF noml = *"THEN 1050 ELSE GOSUB [ 1 1453] 

630 !a=PEEK(adep+3)+256*PEEKiadep+4) 

1 al = adep s GOSUB 710s x2= (x I + >■ 2*2 A <» +1 
)-!) » 2 A ( 2 -«i) iyl = (y 2 -y! + l I+ 2 : « l=xl *2 
A (2-m!iy2=y2*2iIF cl=0 THEN GOSUB 5 
80 ELSE GOSUB 590 

900 i=l [423] 

910 CLSIGOSUB 880 [904] 

920 GOSUB 480!ade=FNadr(xl\2 (2-®), [11828] 
y2\2)! IF kF=CHRI(13)THEN fo=INTIade 
/256)!fa=ade-256*foiP0KE adep + 3,faï 
POKE adep + 4, <01 RETURN ELSE IF kF = " 

" THEN ! IMG, adep, ade, 3! CALL S,BB06iGOT 
0 910 ELSE GOSUB 770iG0T0 920 
930 GOSUB 630!IIMG,adep,0,3iIF cl=0 [3290] 
THEN GOSUB 580 

940 GOSUB 470:IF k*=CHR*(13)THEN RE [6100] 
TURN ELSE IF < H*< "0'■ OR k*> "9* I AND(k* 

<"A"OR k*>"F”)THEN 940 

950 i=VAL < " ï< " + k * ) 1 IF i >nc 1 \ 2-1 THEN [3609] 
940 ELSE BORDER c <0, 1 ) 

960 IF nom* = " "THEN 1Ô50 ELSE GOSUB [3864] 
630i IIMG, adep, 0,3i IF d»0 THEN GOSU 
B 580 

970 1=1 [423] 
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980 GOSUB 470ïIF k»=CHR*(13)THEN 10 [84821 
40 ELSE IF ki=CHRF(240)THEN 1000 EL 
SE IF k*=CHR$i241(THEN 1020 ELSE IF 
(kt<"0“0R k*>"9")AND(k*<“A"0R k*>"F 
")THEN 980 

990 i=VAL("4"+k*):IF i>ncl\2-l THEN [46341 
980 ELSE v=c(0, i ) :BORDER viINK i,v 
: GOTO 980 

1000 IF v = 26 THEN v=0 ELSE v*v + l [5663 

1010 GOTO 1030 [3571 


10 IF HIMEM>9000 THEN OPENOUT”o"I ME [37311 

MORY 8999 !CLOSEOUT:LÛAD “ im” :CALL 45 

063 

20 INK 0,131INK 1,0:B0RDER 3:M0DE 2 [19591 
30 CLS:PRINT”Sous quelle Forme desi [127031 
rez-vous utiliser cette routine ?"i 
PRINTîPRINT" 1- RSX”:PRINT" 2- CALL 
basic " :PRINT" 3- CALL assembleur"! 

GOSUB 180:IF k*<"l"OR k*>"3"THEN RE 
TURN 

40 i=VAL < k»):PRINT iiPRINT:PR INT"Ad [165561 
resse d'implantation ? (RAM central 
e obligatoire pour une RSX)"!lNPUT” 

*,aiIF i = I THEN x1 = 65063:x2=541 1 y 1* 

0 ELSE IF i=2 THEN x1=45094I*2*512: 
y 1=49 ELSE x1=45079:x2=539:y 1=22 
50 CALL 44FA0,a-yl:GOSUB 190:SAVE"d [134431 
ecomp”,b,x1,x2:CALL 44FAO,45063:CLS 
:PRINT:PRINT”Le Fichier binaire DEC 
OMP C'x2"octets ) a ete cree.":PRIN 
T"I1 doit etre charge par: LOAD "CH 
R*(34)"DEC0MP"CHR*(34)■,“a 
60 IF i=1 THEN PRINT:PRINT”- Initia [114253 
liser la RSX par: CALL”a:PRINT•- P 
our aFFicher une image compactée il 
suFFit de Faire: ! IMG(,i),adri,adr 
e ,c"iGOTO 100 

70 1F i=2 THEN PRINT:PRINT"Pour aFF [53591 
icher une image compactée taper: CA 
LL“a " (,i),adri,adre,c":GOTO 100 
80 PRINT:PRINT”Pour aFFicher une im [15013] 
âge compactee:": PR I NT"- charger les 
registres Z 80 : HLiadri DE:adre B :i 
C:c A:nb de paramétrés: 4 ou 3":PR 
INT" selon que i est présent ou pa 
s” 

90 PRINT"- Faire CALL"a:PRINT"(Tous [91423 
les registres et tous les drapeaux 
sont modiFies par la routine.) 

100 PRINTîPRINT:PRINT"adrii adresse [67821 
mémoire de l'image a aFFicherPR 
INT 

110 PRlNT”adre: adresse edran corre [68391 
spondant au coin supérieur gauche d 
e 1'image a aFFicher”) 

120 PRINT" adre doit avoir soi [133911 

t une valeur comprise entre 4C000 e 
t 4FFFF soit Ia":PRINT" valeur 

0. Dans ce dernier cas l'image est 
aFFichee a sa position d'origine") 

:PRINT 

130 PRINT"c: 0=aFFicher seulemen [22694] 

t l'image ; l=Fixer mode écran puis 
aFFicher 1 ’ image":PRINT" 2»aF 


1020 IF v=0 THEN v=26 ELSE v=v-l [16141 
1030 c(0,i)=v:c(l,i)=v:INK i,v:G0T0 [2990] 
980 

1040 GOSUB 700:MODE 1:G0SUB 680; PRI [100981 
NT:PRINT“INTEGRER LES MODIFICATIONS 
(0/N) ?":GOSUB 470:IF k*="0"THEN c 
1 = 1:! IMG,adep,0,t:GOSUB 590:G0T0 13 
0 ELSE RETURN 

1050 PRINT"IMPOSSIBLE: PAS D'IMAGE [26891 
EN MEMOIRE":CALL 4BB06:RETURN 


Ficher et Fixer les couleurs (si ce 
lles-ci ont ete sauvegardées)":PRIN 
T" 3=Fixer le MODE écran, a F Fi 

cher l'image, puis Fixer couleurs." 

140 PRINTiPRINT’i: paramétré en [134541 

option, représente un numéro d'encr 
e transparente,"îPRINT" c'est- 

à-dire d'une encre qui n'aura pas p 
riorite sur le Fond lors de“:PRINT" 

1 aFFichage "| 

150 PRINTMcette option permet l'in [56721 
crustation d'une image a un décor). 

"iCALL 4BB06 

140 PRINTîPRINT" Retour a IMAGIC (0 133731 
/N) ?" i GOSUB 180:1F k*O"0"THEN END 
170 PRINT"Placer la bonne disquette [121813 
puis presser une touche":PRINT"(ou 
presser * pour le catalogue)":GOSU 
B 180:1F kt»"'"THEN CATîGOTO 170 EL 
SE RUN"imagic” 

180 k*=UPPER*(INKEY*):IF k*=""THEN [24441 

180 ELSE PRINT CHRt<7)):RETURN 

190 PRINTîPRINT”Placer une disquett [5784] 

e puis presser une touche":CALL 4BB 

06:RETURN 
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Les OUVERTURES 

( 6128 ) 


C omme le litre sem¬ 
ble l’indiquer, ce lo¬ 
giciel éducatif con¬ 
cerne les échecs et 
se propose d'ensei¬ 
gner les ouvertures aux Kaspa¬ 
rov en herbe. Le menu générai 
propose les options suivantes : 
1 - Les ouvertures : sélection 
d'une ouverture en entrant son 
numéro. Les pions se dépla¬ 
cent et ta notation des coups se 
réalise automatiquement. 

2 - Voir une partie : visualisa¬ 
tion d'une partie préalablement 
enregistrée par l'option 3. 

3 - Entrer une partie : entrée 
du nom de la partie, du nombre 
de coups sous la forme (par 
exemple) E2 (coordonnées 
case départ). E4 (coordonnées 


case d'arrivée) et du nom de 
sauvegarde. 

Programmation 

VARIABLES 

CAS (x,y) : contenu de la case 
de coordonnées x,y 
= 0 : case vide 
~ i : pion 
= 2 : tour 
= 3 : cavalier 
= 4 : fou 
= 5 : reine 
= 6 : roi 

XI, Y1XXI, YY1 : coordonnées 
départ 

X2, Y2XX2, YY2 : coordonnées 
arrivée 

TYP : type de données à lire 
= 0 : ouverture 
= 1 : partie sauvegardée 



BLANCS NOIKS 


01 

E3-E4 

E7-ES 


02 

03 

04 

G1-F3 

F3xES 

ES-F3 

C8-F6 

B7-D6 

FSxE4 

«M ■ i U 

ÜS 

85 

H 

0-0 

im 

Cl-GS 

D6-D5 

F8-E7 

B8-C6 

C8-G4 

E4-F6 

0-0 

7 n ■ n n 

<>■ n ■ ■ 

5 ■ □ 

11 

B1-D3 


4 a na n 

sagas 

‘SéÈê. .. 

3 îjt 1 

*B s aSali 

ABCDEFGH 


NBS: chaîne contenant te 
numéro du coup 

A : type de coup 
= 0 : coup normal 
= 1 : prise 
= 2 : petit roque 
= 3 : grand roque 

N MS : nom du fichier 
LNG : nombre de coups 
BLS, NRS : coups avant 
analyse 

I, J, W: indices de boucles 


PROGRAMMES 

Lignes 10 à 120 : redéfinition 

des caractères 

Lignes 130 à 480 : affichage 

échiquier 

Lignes 490 à 870 : lecture et 
analyse de chaque coup 
Lignes 880 à 3810 : données 
des ouvertures 
Lignes 3820 à 4260 : menu 
généra! et ouvertures 
Lignes 4270 à 4530 : analyse et 
sauvegarde 

Olivier Grinenberger 


10 DATA 0,3,7,15,31,31,31,15,0,192, 1A260] 

224.240.248.298.248.240.7.3.3.7.15, 
31,43,0,224,192,192,224,240,248,252 
, 0 

20 DATA 0.102,102,102,127,63,31,15, 161931 

0,102,102,102,254,252,248,240,15,15 

,15,15,31,63,127,0,240,240,240,240, 

248 252 254 0 

30 DATA*0,3*7,15,31,63,63,63,0,192, 148951 

224.240.240.248.248.252.31.15.7.15, 
31,63,127,0,220,200,224,240,248,252 
,254,0 

40 DATA 0,1,3,7,15,31,31,15,0,128,1 147581 
92,192,144,56,120,240,7,3,7,15,31,6 
3,127,0,224,192,224,240,248,252,254 
,0 

50 DATA 1,3,63,31,15,15,15,15,128,1 160361 
92,252,248,240,240,240,240.15,15,15 
,15,31,63,127,0,240,240,240,240,248 


21 









Les ouvertures 


,252,254,0 

60 DATA 3,7,15,7,3,1,127,65,192,224 £49223 

,240,224,192,128,254,252,31,15,15,1 

5,31,63,127,0,248,240,240,240,248,2 


52,254,0 

70 SYMBOL AFTER 230 114341 

80 FOR i =230 TO 253 16541 

90 READ a,b,c,d,e,F,g,h 116841 

100 SYMBOL i,a,b,c,d,e,f ,g,h 1 16781 

110 NEXT 13501 

120 GOSUB 3820 110051 


130 FOR 1 = 1 TO 8sFOR j = l TO 8scas(i I290B1 
,j > =0s NEX T j, i 

140 MODE 1 1 INK O.OsBORDER Os INK 1,2 150721 
6 s INK 2,15:INK 3,3sL0CATE 8,12:1NPU 
T "vitesse ”,vsv=v»200sCLS 


150 WINDOW #2,2,17,3,22 112701 
160 PAPER 2:PEN 3 18581 
170 FOR 1=5 TO 20 STEP 4 111471 
180 FOR w=0 TO 1 16641 
190 FOR >s = 24 TO 39 STEP 4 19951 


200 LOCATE x,i+w:PR INT " "sCHR*<14 129111 

3) ;CHR*(143) 

210 LOCATE x , i+w+2:PRINT CHR* <143); 122561 
CHR*(143)i " " 

220 NEXT x, h, i 18271 

230 GRAPHICS PEN 1 :TAG:FOR 1 = 1 TO 8 1 1895) 

240 MOVE ((I-1)*32)+376,75sPRINT CH 12456) 
R*(64+i)i 

250 MOVE 344,(<I-1)*321+104SPRINT C 12081) 
HR»(48+11 ) 

260 NEXTs TAGOFF 18931 

270 FOR i = l TO 8 s cas(i,2)=1 s cas(i,7 12274] 
1 = 1 

280 PEN OsIF i/2=i\2 THEN PAPER 2 E 139451 
LSE PAPER 3 

290 LOCATE'(1*21+22,7sPRINT CHR*<23 15923) 
0);CHR*(2311s LOCATE (i+21+22, 8 s PR IN 
T CHR*(232>sCHR*(233) 

300 PEN 1 s IF i/2=i\2 THEN PAPER 3 E 12591] 
LSE PAPER 2 

310 LOCATE (1*21+22,17 s PR INT CHR*<2 154291 
30)jCHR*<2311 :LOCATE ( i«21+22,18s PR 
INT CHR*(232);CHR*<233> 

320 NEXT 1350) 

330 PAPER 3s LOCATE 24,19 : PRI NT CHR* 15959) 

(234)j CHRF(2351s LOCATE 24,20sPRINT 

CHR»(236);CHR*(237)s cas(1,11=2 

340 LOCATE 28,19 : PR INT CHR*(242)jCH 154351 

R*(243)s LOCATE 28,20sPRINT CHR*<244 

>;CHR»(245)s cas(3,1)=4 

350 LOCATE 32,19s PRINT CHR*(250)? CH 148451 
R*(251):LOCATE 32,20iPRINT CHR*(252 
);CHR*(253)scas(5,l)=6 

360 LOCATE 36,19 : PR I NT CHR*(238)jCH 140421 

R» < 239)s LOCATE 36,20sPRINT CHRt(240 

);CHR»(241): cas(7,1)=3s PEN 0 

370 LOCATE 26,5sPRINT CHR»(238)iCHR 155171 

*(239) sLOCATE 26>,6s PRINT CHR* ( 240) } 

CHR*(241):cas(2,8>=3 

380 LOCATE 30,5sPRINT CHR*(246)iCHR 160451 
*(247)sLOCATE 30,6sPRINT CHR* <248 )5 
CHR*(249)s cas(4, 8 )=5 

390 LOCATE 34,5s PR INT CHR*(242);CHR 136381 
*(243)sLOCATE 34, 6 :PRINT CHR* < 244)} 

CHR*(245)scas(6,8)=4 

400 LOCATE 38,5sPRINT CHR* (234) •, CHR 151201 
*(235)sLOCATE 38,6:PRINT CHR*(236 )5 
CHR*(237)scas(8,8)=2 
4 22 


410 PEN 1 s PAPER 2sL0CATE 26,19:PRIN 
T CHR*(238)|CHR*(239):LOCATE 26,20s 
PRINT CHR*(240)jCHR*(241):cas(2,l)= 
3 

420 LOCATE 30,19s PR INT CHR*(246); CH 

R*(247)sLOCATE 30,20sPRINT CHRt(248 

)jCHR*(249):cas(4,l)=5 

430 LOCATE 34,19:PRINT CHR*(242)iCH 

Rt(243) sLOCATE 34,'20sPRINT CHR*(244 

);CHR*(245)s cas( 6 ,1)=4 

440 LOCATE 38,19:PRINT CHR*(234 )5 CH 

R*(235)sLOCATE 38,20sPRINT CHR*<236 

)5 CHR*(237): cas < 8 ,1)=2 

450 PEN OsLOCATE 24,5:PRINT CHR*<23 

4)j CHR*(235)sLOCATE 24,6sPRINT CHR* 

(236)j CHR*(237): cas(1, 8 )=2 

460 LOCATE 28,5sPRINT CHR*(242)j CHR 

*(243)sLOCATE 28,6sPRINT CHR*(244); 

CHR*(245): cas(3, 8 )=4 

470 LOCATE 32,5sPRINT CHR*(250))CHR 

*(251):LOCATE 32,6:PRINT CHR*(252 )5 

CHR*(253)s cas(5,8 )=6 

480 LOCATE 36,5:PRINT CHR*(238)jCHR 

*(239)sLOCATE 36,6 s PR I NT CHR*(240 >) 

CHR*(24l):cas(7,B)°3 

490 PEN 1 s PAPER 0 

500 IF typ=Q THEN READ nom*,lng ELS 
E OPENIN nm*:INPUT #9,nom*,lng 
510 LOCATE 4,1 s PRINT "BLANCS NOIRS 
520 LOCATE (40-LEN(nom*)>\2,24:PRIN 
T nom* 

530 FOR i=1 TO lng 

540 IF typ=0 THEN READ >s l, y 1 ,h 2 , y2 , 

xx 1,yy1,xx2,yy2 ELSE INPUT #9,xl,yl 

,x 2 ,y 2 ,xx 1 ,yy 1 ,x x 2 ,yy 2 

550 IF i<10 THEN nb*="0"+RIGHT*(STR 

* (i) , 1 ) ELSE nb*=RIGHT*(STR*(i),2) 

560 IF cas(x2,y2)>0 THEN a=l ELSE a 
=0 

570 PEN 1 : IF (xl\2=xl/2 AND y 1\2 = y1 
/2) OR (x1\2<>x1/2 AND yl\2<>yl72) 
THEN PAPER 3 ELSE PAPER 2 
580 SOUND 1,100,6 

590 LOCATE (2*x1)+22,(-2*y1)+21 :PRI 
NT “ "sLOCATE (2+x1)+22,(-2*y1)+22 
SPRINT " “ 

600 IF (x2V2=x2/2 AND y2\2=y2/2) OR 
(x2\2< >x2/2 AND y2\2<>y2/2) THEN P 
APER 3 ELSE PAPER 2 
610 c=(cas(xl,yl)-l)#4+l 
620 LOCATE (2*x2)+22,<-2*y2)+21 sPRI 
NT CHR*(229+c))CHR*(230+c)s LOCATE ( 
2*x2)+22,(-2 * y 2)+22sPRINT CHR*<231 + 
c)j CHR* < 232+c) 

630 cas(x2,y2)=cas(xl,yl)scas(xl,yl 
1=0 

640 IF x1=5 AND yl=l AND x2=7 AND y 
2=1 THEN PAPER 2sa=2sL0CATE 34,19: P 
RINT CHR* <234):CHR*(235)sLOCATE 34, 
20s PRINT CHR*(236)j CHR*(237I s LOCATE 
38,19:PRINT " "sLOCATE 38,20 s PR IN 
T " " 1 cas( 8 ,1)=0scas( 6 ,1)=2 
650 IF x 1 = 5 AND y 1 = 1 AND x2=3 AND y 
2=1 THEN PAPER 2:a = 3iLÛCATE 30,19 : P 
RINT CHR*<234);CHR*(235)sLOCATE 30, 
20s PRINT CHR*(236)jCHR*(237)s PAPER 
3s LOCATE 24,19:PRINT “ "sLOCATE 24 
,20s PRINT ” “:cas(!,l)=0:cas(3,l) = 

2 


16031) 

155931 

149331 

136041 

154201 

14299) 

143591 

149921 

19581 

133081 

12682) 

117401 

1359) 

150951 

124641 

11670) 

16870) 

11206) 

151261 

142401 

113221 

164761 

134291 

1100361 

115187) 




Les OUVERTURES 


660 IF a=0 THEN PRINT # 2, n b * 5 " "jCH 
RP(64+x1)j RIGHT P(STRP(yl),l)j"-")CH 
RP(64+x2);RIGHTP(STRP(y2),1);“ "; 

670 IF a = l THEN PRINT #2,nbP)" "! CH 
RP(64+xl);RIGHTP(STRP(yl),1) 5 "x"; CH 
RP(64+x2) ; RIGHTP(STRP(y2) , 1 ) j « 

680 IF a=2 THEN PRINT #2,nbP!" 0-0 

“l 

690 IF A=3 THEN PRINT # 2, n b * ; •' 0-0- 

0 “i 

700 FOR w=l TO v!NEXTîIF cas(xx2,yy 

2 )>0 THEN a=1 ELSE a=0 

710 IF xx1=0 THEN 840 

720 PEN Os IF (xxl\2=xx1/2 AND yyl\2 

=y y 1 /2) OR (xx 1 \2<>xx1/2 AND yy1\2< 

>yy1/2) THEN PAPER 3 ELSE PAPER 2 

730 SOUND 1,100,6 

740 LOCATE (2*xx1)+22,<-2*yyl)+2liP 
RINT " 11 : LOCATE (2*xx 1 ) +22 , (-2»yy 1 

)+22iPR INT " " 

750 IF (xx2\2=xx2/2 AND yy2\2=yy2/2 
) OR (xx2\2<>xx2/2 AND yy2\2<>yy2/2 
) THEN PAPER 3 ELSE PAPER 2 
760 c= (casfxx 1 ,yy 1 )-1 ) *4a-1 
770 LOCATE (2*xx2)+22,(-2*yy2)+21iP 
RINT CHRP(229+cIJCHRP(230+c) 1 LOCATE 
(2*xx2)+22,(-2*yy2)+22SPRINT CHRP( 
231+c)|CHRP(232+cI 1 cas(xx2,yy2)=cas 
(xxl,yyl)scas(xxl,yyl )=0 
780 IF xx 1=5 AND y y l =8 AND >ix2=7 AN 
D yy2=8 THEN a=2sPAPER 3:L0CATE 34, 
5:PRINT CHRP(234)iCHRP(235)s LOCATE 
34 ,6 sPRINT CHRP(236)j CHRP(237)s LOCA 
TE 38,5 s PR INT " "sLOCATE 38,6sPRIN 
T " "scas(8,8)=0scas(6,8)=2 


[54343 790 IF xxl=5 AND yyl =8 AND xx2=3 AN [138503 

D yy2=8 THEN a=3sPAPER 3sL0CATE 30, 

5s PRINT CHRP(234)iCHRP(235)sLOCATE 
[52263 30,6s PR INT CHRP(236)iCHRP(237)s PAPE 

R 2 s LOCATE 24,5sPRINT " "sLOCATE 2 
4,6s PRINT ” "scas(l,8)=0scas(3,8) = 

[ 15423 2 

800 IF a=1 THEN PRINT #2,CHRP<64+xx [58733 
[27203 1 )5 RISHTP(STRP(yy1),1)i"x"jCHRP(64 + 

xx2> 5 RIGHT*(STRP <yy2),1) 

[39633 810 IF a=0 THEN PRINT #2,CHRP(64+xx (49011 


U3363 

1);RIGHT* (STRP(yyl),1)!“-";CHRP(64 + 
xx2))RIGHTP(STRP(yy2),1) 


[70353 

820 IF a = 3 THEN PRINT #2, ”0-0-0'' 

[16323 


830 IF a=2 THEN PRINT #2," 0-0 

[1264] 


840 FOR w=l TO vsNEXT w,i 

[11883 

[12063 

850 IF typ = 1 THEN CLOSEIN 

[7633 

[38863 

860 IF INKEYP»"" THEN 860 

[8683 


870 GOTO 120 

[4293 


880 DATA le gambit du roi,12 

[7933 

[44713 

890 DATA 5,2,5,4,5,7,5,5 

[8173 


900 DATA 6 ,2, 6 ,4,5,5, 6 ,4 

[11523 


910 DATA 7,1,6,3,7,7,7,5 

[9833 

[10183 

920 DATA 6,1,3,4,4,7,4 ,6 

[8063 

[83713 

930 DATA 5,1,7,1,8,7, 8,6 

[9053 


940 DATA 4,2,4,4, 6 , 8 ,7,7 

(8663 


950 DATA 3,2,3,3,2, 8 ,3 ,6 

[6191 


960 DATA 7,2,7,3,7,5,7,4 

[5193 


970 DATA 6 ,3, 8 ,4, 6 ,4, 6 ,3 

[7763 

[118533 

980 DATA 2,1,4,2,7,7, 6,6 

[4853 


990 DATA 4,2, 6 ,3,7,4, 6 ,3 

[1883 


1000 DATA 4,1,6,3,0,0,0,0 

[5323 


1010 DATA la partie viennoise,7 

[8771 


1020 DATA 5,2,5,4,5,7,5,5 

[8173 


1030 DATA 2,1,3,3,7, 8 , 6,6 

[6433 


N'USEZ PAS 
VOS DOIGTS 

Retrouvez tous les listings de ce 
numéro sur une disquette. Prix 
120 F (port compris). En raison 
de la longueur des listings, nous 
n’avons pas réalisé de cassette. 



BON DE COMMANDE Disquette "Spécial Listings 11 

Offre limitée 

Je commande disquette(s) au prix de 180 F pièce. 

Chèque à adresser à : AM-MÀG, 5/7, rue de l'Amiral Courbet, 94160 SAINT-MANDÉ 

.prénom : . 


Nom : . 

Adresse : 








Les OUVERTURES 


1040 

DATA 

6 f 2,6,4,4 f 7,4,5 


C7043 

1710 

DATA 

4,5,j,6,2,7,3,6 

(7353 

1050 

DATA 

6,4,5,5,6,6,5,4 


C6333 

1720 

DATA 

l'attaque ma>: lange,11 

[24153 

1060 

DATA 

7,1,6,3,6,8,5,7 


[10663 

1730 

DATA 

5,2,5,4,5,7,5,5 

[8173 

1070 

DATA 

4,2,4,4,5,8,7,8 


[9423 

1740 

DATA 

7,1,6,3,2,3,3,6 

(10143 

1080 

DATA 

6,1,4,3,6,7,6,5 


[7423 

1750 

DATA 

6,1,3,4,7,8,6,6 

U1883 

1090 

DATA 

le gambit goring 

,13 

(9553 

1760 

DATA 

4,2,4,4,5,5,4,4 

[7993 

1100 

DATA 

5,2,3,4,3,7,5,5 


[8173 

1770 

DATA 

5,1,7,1,6,8,3,5 

[9873 

1110 

DATA 

7,1,6,3,2,8,3,6 


[10143 

1780 

DATA 

5,4,5,5,4,7,4,5 

[3183 

1120 

DATA 

4,2,4,4,5,5,4,4 


[7993 

1790 

DATA 

5,5,6,6,4,5,3,4 

[6523 

1130 

DATA 

3,2,3,3,4,4,3,3 


[10693 

1800 

DATA 

6,1,5,1,3,8,5,6 

(699) 

1140 

DATA 

2,1,3,3,6,8,2,4 


[4563 

1810 

DATA 

6,3,7,5,4,8,4,5 

[8603 

1150 

DATA 

6,1,3,4,4,7,4,6 


[8063 

1820 

DATA 

2,1,3,3,4,5,6,5 

(5613 

1160 

DATA 

5,1,7,1,2,4,3,3 


[10513 

1830 

DATA 

3,3,5,4,5,8,3,8 

[9183 

1170 

DATA 

2,2,o,3,7,8,6,6 


[6593 

1840 

DATA 

la ruy lopez ou espagnole 

[ 16583 

1180 

DATA 

5,4,5,5,3,6,5,5 


[3383 

>3 




1190 

DATA 

6,3,3,3,4,6,3,5 


[8003 

1850 

DATA 

5,2,5,4,5,7,5,5 

(8173 

1200 

DATA 

4,1,2,3,4,8,5,7 


[544 3 

1860 

DATA 

7,1,6,3,2,8,3,6 

(10143 

1210 

DATA 

3,1,1,3,3,7,3,5 


[7613 

1870 

DATA 

6,1,2,5,0,0,0,0 

(3093 

1220 

DATA 

3,4,2,5,3,8,4,7 
le gambit danois 


[9513 

1880 

DATA 

la defense petroff ou def 

[24773 

1230 

DATA 

,11 

[4373 

ense 

russe,11 


1240 

DATA 

5,2,5,4,5,7,5,5 


[8173 

1890 

DATA 

5,2,5,4,5,7,5,5 

(8173 

1250 

DATA 

4,2,4,4,5,5,4,4 


[7993 

1900 

DATA 

7,1,6,ô,7,8,6,6 

[9023 

1260 

DATA 

o,2,3,o,4,4,3,o 


(10693 

1910 

DATA 

6,3,5,5,4,7,4,6 

[8783 

1270 

DATA 

6,1,3,4,3,3,2,2 


[7293 

1920 

DATA 

5, «j, 6,3,6,6,5,4 

[4753 

1280 

DATA 

3,1,2,2,4,7,4,6 


[5453 

1930 

DATA 

4,2,4,4,4,6,4,5 

[9873 

1290 

DATA 

7,1,6,3,2,8,ô,6 


(10143 

1940 

DATA 

1,4,3,6,8,5,7 

(8553 

1300 

DATA 

5,1,7,1,3,8,5,6 


[10313 

1950 

DATA 

5,1,7,1,2,8,3,6 

[7573 

1310 

DATA 

3,4,5,6,6,7,5,6 


[5093 

1960 

DATA 

6,1,5,1,3,8,7,4 

(7013 

1320 

DATA 

4 , 1 , 2,3,4,8,3,8 


(5033 

1970 

DATA 

3,2,3,o,5,4,6,6 

(7913 

1330 

DATA 

6,3,7,5,3,6,4,3 


[8923 

1980 

DATA 

3,1,7,5,5,8,7,8 

(6933 

1340 

DATA 

6,2,6,4,0,0,0,0 


[8743 

1990 

DATA 

2,1,4,2,0,0,0,0 

[5083 

1350 

DATA 

le gambis evans, 

9 

[693 

2000 

DATA 

1 a defense phi 1 1 dor,11 

[16423 

1360 

DATA 

5,2,5,4,5,7,3,5 


[8173 

2010 

DATA 

5,2,5,4,5,7,5,5 

[8173 

1370 

DATA 

7,1,6,3,2,8,o,6 


(10143 

2020 

DATA 

7,1,6,3,4,7,4,6 

(10463 

1380 

DATA 

6,l,o,4,6,8,o,5 


[10443 

2030 

DATA 

4,2,4,4,7,8,6,6 

[10543 

1390 

DATA 

2,2,2,4,3,5,2,4 


(5303 

2040 

DATA 

2,1,3,3,2,8,4,7 

(6033 

1400 

DATA 

3,2,3,3,2,4,1,5 


[8963 

2050 

DATA 

^il|3,4,6,8,5,7 

[10183 

1410 

DATA 

4,2,4,4,5,5,4,4 


[7993 

2060 

DATA 

5,1,7,1,5,8,7,8 

[11883 

1420 

DATA 

5,1,7,1,4,7,4,6 


(7603 

2070 

DATA 

4,1,5,2,3,7,3,6 

[5653 

1430 

DATA 

3,3,4,4,1,5,2,6 


[506] 

2080 

DATA 

3,4,2,3,1,7,1,6 

(8433 

1440 

DATA 

2,1,3,3,0,0,0,0 


[4053 

2090 

DATA 

8,2,8, o, 5,5,4,4 

[5543 

1450 

DATA 

la partie des 4 

cavaliers 

[8953 

2100 

DATA 

6,3,4,4,6,8,5,8 

[8153 

.B 




2110 

DATA 

3,1,6,4,0,0,0,0 

[6973 

1460 

DATA 

5,2,5,4,5,7,5,5 


(8173 

2120 

DATA 

la defense française,13 

[8233 

1470 

DATA 

7,1,6,3,2,8,3,6 


(10143 

2130 

DATA 

5,2,5,4,5,7,5,6 

[8163 

1480 

DATA 

2,1,o,3,7,8,6,6 


[6433 

2140 

DATA 

4,2,4,4,4,7,4,5 

(9403 

1490 

DATA 

6,l,2,5,6,8,2,4 


[7253 

2150 

DATA 

2,1,4,2,7,8,6,6 

[7243 

1500 

DATA 

5,1,7,1,5,8,7,8 


[11883 

2160 

DATA 

5,4,5,5,6,6,4,7 

(5623 

1510 

DATA 

4,2,4,3,4,7,4,6 


(6883 

2170 

DATA 

6,1,4,3,3,7,3,5 

[7693 

1520 

D'ATA 

3,1,7,5,3,8,7,4 


(8123 

2180 

DATA 

3,2,3,3,2,8,3,6 

(6193 

1530 

DATA 

3,3,4,5,3,6,4,4 


(8523 

2190 

DATA 

7,1,5,2,4,8,2,6 

[8523 

1540 

DATA 

giuoco piano ou 

i talienne 

[12903 

2200 

DATA 

4,2,6,3,3,5,4,4 

[3073 

,9 




2210 

DATA 

w',j,4,4,6,7,6,6 

(5563 

1550 

DATA 

5,2,5,A,5,7,5,5 


(8173 

2220 

DATA 

5,5,6,6,4,7,6,6 

(336! 

1560 

DATA 

7,1,6, o, 2,8, o, 6 


(10143 

2230 

DATA 

5,1,7,1,6,8,4,6 

[8423 

1570 

DATA 

6,1,3,4,6,8,3,5 


(10443 

2240 

DATA 

5,2,3,3,5,8,7,8 

[7223 

1580 

DATA 

3,2,3,3,7,8,6,6 


(8583 

2250 

DATA 

3,1,5,3,3,8,4,7 

[7163 

1590 

DATA 

4,2,4,4,5,5,4,4 


[7993 

2260 

DATA 

la defense caro-kann,14 

( 7203 

1600 

DATA 

3,3,4,4,3,5,2,4 


(7403 

2270 

DATA 

5,2,5,4,3,7,3,6 

[5213 

1610 

DATA 

2,l,o,3,6,6,5,4 


(4863 

2280 

DATA 

4,2,4,4,4,7,4,5 

(9403 

1620 

DATA 

5,1,7,1,5,4,3,3 


(8623 

2290 

DATA 

2,1,3,3,4,5,5,4 

(5343 

1630 

DATA 

2,2,3,o,0,0,0,0 


[4433 

2300 

DATA 

3,3,5,4,o,8,6,5 

(7683 

1640 

DATA 

la defense des 2 

cavalier 

(15233 

2310 

DATA 

5,4,7,3,6,5,7,6 

[8083 

s,7 





2320 

DATA 

8,2,8,4,8,7,8,6 

(7433 

1650 

DATA 

5,2,5,4,5,7,5,5 


(8173 

2330 

DATA 

7,1,6,3,2,8,4,7 

[10693 

1660 

DATA 

7,1,6,o,2,8,o,6 


U0143 

2340 

DATA 

8,4,8,5,7,6,8,7 

(5401 

1670 

DATA 

6,1,3,4,7,8,6,6 


(11883 

2350 

DATA 

6,1,4,3,8,7,4,3 

(8613 

1680 

DATA 

6,3,7,5,4,7,4,5 


(6743 

2360 

DATA 

4,1,4,3,4,8,3,7 

[6873 

1690 

DATA 

5,4,4,5,3,6,1,5 


[7243 

2370 

DATA 

o,l,4,2,5,7,5,6 

[7193 

1700 

DATA 

3,4,2,5,3,7,o,6 


[9543 

2380 

DATA 

4,3,5,2,7,8,6,6 

[9173 


24 



Les ouvertures 


2390 

DATA 

5,1,3,1,5,8,3,8 


14591 

2400 

DATA 

6 ,3,5,5,0,0,0,0 


16631 

2410 

DATA 

la defense Scandinave, 

11 

119611 

2420 

DATA 

5,2,5,4,4,7,4,5 


19831 

2430 

DATA 

5,4,4,5,7,8,6,6 


16531 

2440 

DATA 

6 ,1,2,5,3,8,4,7 


15271 

2450 

DATA 

2 ,5,3,4,4,7,7,4 


13831 

2460 

DATA 

6 ,2,6,3,7,4,6,5 


(6161 

2470 

DATA 

2,1,3,3,2,8,4,7 


16031 

2480 

DATA 

7,1,5,2,4,7,2,6 


18011 

2490 

DATA 

4,2,4,3,2,6,4,5 


14831 

2500 

DATA 

3,3,4,5,6,6,4,5 


15621 

2510 

DATA 

5,2,7,3,6,5,7,6 


18241 

2520 

DATA 

5,1,7,1,0,0,0,0 


18241 

2530 

DATA 

la defense alekhine,14 


18941 

2540 

DATA 

5,2,5,4,7,8,6,6 


16911 

2550 

DATA 

5,4,5,5,6,6,4,5 


15641 

2560 

DATA 

3,2,3,4,4,5,2,6 


19821 

2570 

DATA 

4,2,4,4,4,7,4,6 


19351 

2580 

DATA 

6 ,2,6,4,4,6,5,5 


110511 

2590 

DATA 

6 ,4,5,5,2,8, ->,6 


18541 

2600 

DATA 

3,1,5,3,3,8,6,5 


17131 

2610 

DATA 

2,1,3,a,5,7,u,6 


13551 

2620 

DATA 

7,1,6,3,6,8,5,7 


110661 

2630 

DATA 

6 ,1,5,2,5,8,7,8 


18691 

2640 

DATA 

5,1,7,1,6,7,6,6 


111221 

2650 

DATA 

5,5,6,6,5,7,6,6 


16601 

2660 

DATA 

4,1,4,2,4,8,5,7 


17431 

2670 

DATA 

1 ,1,4,1,0,0,0,0 


110341 

2680 

DATA 

la defense sicilienne, 

17 

118971 

2690 

DATA 

5,2,5,4,->,7,3,5 


15221 

2700 

DATA 

7,1,6,3,4,7,4,6 


110461 

2710 

DATA 

4,2,4,4,3,5,4,4 


19261 

2720 

DATA 

6 ,3,4,4,7,8,6,6 


18071 

2730 

DATA 

2,1,3,3,1,7,1,6 


16821 

2740 

DATA 

6 ,1,5,2,5,7,j,u 


111721 

2750 

DATA 

4,4,2,3,6,8,5,7 


14801 

2780 

DATA 

5,1,7,1,5,8,7,8 


111881 

2770 

DATA 

6 ,2,6,4,2,7,2,5 


110591 

2780 

DATA 

1,2,1,3,3,8,2,7 


111411 

2790 

DATA 

5,2,6,3,2,8,4,7 


15081 

2800 

DATA 

7,2,7,3,1,8,3,3 


1902) 

2810 

DATA 

4,1,5,1,4,7,2,6 


15191 

2820 

DATA 

7,1,8,1,2,6,3,4 


110961 

2830 

DATA 

2 ,3,4,2,4,8,4,7 


18751 

2840 

DATA 

4,2,3,4,3,3,3,4 


18621 

2850 

DATA 

3,1,4,2,4,6,4,5 


18121 

2860 

DATA 

1 e système col!e,10 


17841 

2870 

DATA 

4,2,4,4,4,7,4,5 


19401 

2880 

DATA 

5,2,5,3,7,8,6,6 


13111 

2390 

DATA 

6 ,1,4 , a, v ,7 , u, 5 


17691 

2900 

DATA 

3,3,2,8,0,6 


16191 

2910 

DATA 

7,1,6,v,5,7,5,6 


18571 

2920 

DATA 

2,1,4,2,6,8,4,6 


1 7781 

2930 

DATA 

5,1,7,1,5,8,7,8 


111881 

2940 

DATA 

4,4,3,5,4,6,3,5 


13241 

2950 

DATA 

5,3,5,4,5,6,5,5 


19651 

2960 

DATA 

4,1,5,2,6,8,5,8 
le gambit dame,12 


15911 

2970 

DATA 


13841 

2980 

DATA 

4,2,4,4,4,7,4,5 


19401 

2990 

DATA 

3,2,3,4,5,7,5,6 


110221 

3000 

DATA 

2,1,3,3,7,8,6,6 


16431 

3010 

DATA 

3,1,7,5,6,8,5,7 


18811 

3020 

DATA 

5,2,5,3,5,8,7,8 


16981 

3030 

DATA 

7,1,6,3,2,8,4,7 


110691 

3040 

DATA 

1,1,3,1,3,7,3,6 


111101 

3050 

DATA 

6 ,1,4,3,4,5,3,4 


19581 

3060 

DATA 

4,3,3,4,6,6,4,5 


19111 

3070 

DATA 

7,5,5,7,4,8,5,7 


16521 

3080 

DATA 

5,1,7,1,4,5,3,3 


19191 


3090 DATA 3,1,3,3,5,4,5,5 
3100 DATA la defense hol1andaise,12 C1349I 
3110 DATA 4,2,4,4,6,7,6,5 17121 

3120 DATA 3,2,3,4,5,7,5,6 110221 

3130 DATA 7,2,7,3,7,8,6,4 14691 

3140 DATA 6,1,7,2,6,8,5,7 18081 

3150 DATA 7,1,6,3,5,8,7,8 
3160 DATA 5,1,7,1,4,7,4,6 17601 

3170 DATA 2,1,3,3,4,8,5,8 15141 

3180 DATA 6,1,5,1,5,8,8,5 [10471 

3190 DATA 5,2,5,4,6,5,5,4 14851 

3200 DATA 3,3,5,4,6,6,5,4 15661 

3210 DATA 5,1,5,4,2,8,3,6 18021 

3220 DATA 3, 1,6,4,0,0,0,0 16971 

3230 DATA la defense niinzo-1 ndienne 121571 
,11 

3240 DATA 4,2,4,4,7,8,6,6 110541 

3250 DATA 3,2,3,4,5,7,5,6 110221 

3260 DATA 2,1,3,3,6,8,2,4 14561 

3270 DATA 5,2,5,3,5,8,7,8 16981 

3280 DATA 6,1,4,3,4,7,4,5 18581 

3290 DATA 7,1,6,3,3,7,3,5 18441 

3300 DATA 1,2,1 ,3,2,4,3,3 19861 

3310 DATA 2,2,3,3,2,8,3,6 17021 

3320 DATA 5,1,7,1,4,5,3,4 19261 

3330 DATA 4,3,3,4,4,8,3.7 1624] 

3340 DATA 3,4,4,3,5,6,5,5 17771 

3350 DATA la defense ouest-indienne [10911 


f * V 

3360 DATA 4,2,4,4,7,8,6,6 11054] 

3370 DATA 3,2,3,4,5,7,5,6 110221 

3380 DATA 7,1,6,3,2,7,2,6 110071 

3390 DATA 5,2,5,3,3,8,2,7 16171 

3400 DATA 6,1,4,3,6,6,5,4 16991 

3410 DATA 2,1,3,3,6,8,2,4 14561 

3420 DATA 4,1,3,2,6,7,6,5 15081 

3430 DATA 1,2,1,3,2,4,3,3 19361 

3440 DATA 2,2,3,3,5,8,7,8 12881 

3450 DATA 5,1,7,1,6,8,6,6 18501 

3460 DATA la defense est-indienne,1 116381 
0 

3470 DATA 4,2,4,4,7,8,6,6 110541 

3480 DATA 3,2,3,4,7,7,7,6 [10591 

3490 DATA 2,1,3,3,6,8,7,7 13501 

3500 DATA 5,2,5,4,4,7,4,6 19861 

3510 DATA 7,1,6,3,5,8,7,8 17711 

3520 DATA 6,1,5,2,5,7,5,5 [11721 

3530 DATA 5,1,7,1,2,8,3,6 17571 

3540 DATA 4,4,4,5,3,6,5,7 1480) 

3550 DATA 6,3,5,1 , 6,6,4,7 19811 

3560 DATA 5,1,4,3,6,7,6,5 16381 


3570 DATA la defense benoni moderne 116021 


3580 DATA 4,2,4,4,7,8,6,6 110541 

3590 DATA 3,2,3,4,3,7,3,5 19101 

3600 DATA 4,4,4,5,5,7,5,6 16871 

3610 DATA 2,1,3,3,5,6,4,5 1404] 

3620 DATA 3,4,4,5,4,7,4,6 16411 

3630 DATA 5,2,5,4,7,7,7,6 16921 

3640 DATA 6,1,4,3,6,B,7,7 17041 

3650 DATA 7,1,5,2,5,8,7,8 [10451 

3660 DATA 5,1,7,1,1,7,1,6 17311 

3670 DATA 1,2,1,4,4,8,3,7 111691 

3680 DATA 8,2,8,3,2,3,4,7 17931 

3690 DATA 6,2,6,4,6,8,5,8 18501 

3700 DATA 5,2,7,3,3,5,3,4 1784] 

3710 DATA 4,3,3,2,4,7,3,5 19081 

3720 DATA la defense grunfeld,9 15961 
3730 DATA 4,2,4,4,7,8,6,6 110541 

3740 DATA 3,2,3,4,7,7,7,6 110591 


25 


Les ouvertures 


3750 DATA 2,1,3,3,4,7,4,5 

3740 DATA 3,4,4,5,4,6,4,5 

3770 DATA S .2,5,4,4,5,3,3 

3780 DATA 2,2,3,3,6,0,7,7 

3790 DATA 4,1,3,4,3,7,3,5 

3800 DATA 7,1,5,2,5,8,7,8 

3810 DATA 5,1,7,1,2,8,3,4 

3820 typ=0:M0DE 1 s INK 0,1:BORDER 1: 

INK 1,26:PEN 1 : PAPER 0 

3830 LOCATE 8,10:PR INT "Cl] les ouv 

ertures 

3840 LOCATE 8,12:PRINT "C23 voir un 
e partie 

3850 LOCATE 8,14:PRINT "C33 entrer 

une partie 

3840 a = VAL(INKEY*1 

3870 ON a GOTO 3890,4270,4290 

3880 GOTO 3840 

3890 MODE 2 

3900 MOVE 320,14:DRAW 320,400 
3910 LOCATE 7,1 : PR INT "ouvertures d 
u pion-roiLOCATE 47,1 :PRINT "ouve 
rtures du pion-dame 
3920 RESTORE 3970:FQR i=l TO 25 
3930 READ nom! 

3940 IF i<10 THEN LOCATE 3,i+3:PRIN 
T i j " : nom* : GOTO 3960 

3950 IF i<18 THEN LOCATE 2,i+3:PRIN 
T i ; : " ; nom! : ELSE LOCATE 42, i-141 

PRINT i ; : “snom* 

3960 NE*T 

3970 DATA le gambit du roi,la parti 
e viennoise,le gambit goring,le gain 
bis danois,le gambit evans,la parti 
e des 4 cavaliers,gîuoco piano ou i 
ta!ienne,]a deTense des 2 cavaliers 
,l'attaque ma» lange,la ruy lopez o 
u espagnole 

3980 DATA la defense petrofT ou rus 
se,la defense philidor,la defense f 
rancaise,la defense caro-kann,la de 
fense scandinave, 1 a defense alelihin 
e,la defense sicilienne 
5990 DATA le système colle,le gambi 
t dame,la defense hol1andaise,1 a de 
fense nii»2 0-indienne, 1 a defense oue 
st-indienne,1 a defense est-indienne 
,ia defense benoni moderne,la defen 
se grunfeld 

4000 LOCATE 35,24:INPUT "votre choi 

» 

4010 ON a GOTO 4020,4030,4040,4050, 
4060,4070,4080,4090,4100,4110,4120, 
4130,4140,4150,4160,4170,4180,4190, 
4200,4210,4220,4230,4240,4250,4260 


C 3261 

17461 

1567] 

1490] 

1955] 

11045] 

C 757 î 

13704] 

C2595] 

13562] 

€3153] 

11034] 

11398] 

C485] 

1513] 

11033] 

165941 


C20643 

1395] 

12973] 

[4440] 


1350] 

112936] 


19853] 


C12352] 


€2871] 
C 6362] 


4020 RESTORE 880,-RETURN £10513 

4030 RESTORE 10Ï0:RETURN [7811 

4040 RESTORE 1090:RETURN C725) 

4050 RESTORE 1230:R£TURN 1983] 

4060 RESTORE 1350:RETURN [878] 

4070 RESTORE I450:RETURN 1896] 

4080 RESTORE 1540:RETURN [6413 

4090 RESTORE 1640:RETURN [1594] 

4100 RESTORE !720:RETURN [2370] 

4110 RESTORE 1840:R£TURN 1849] 

4120 RESTORE I88O1RETURN 11391] 

4130 RESTORE 2000:RETURN [942] 

4140 RESTORE 2120:RETURN [1986] 

4150 RESTORE 2260:RETURN [1220] 
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4160 RESTORE 2410:RETURN 

4170 RESTORE 2530:RETURN 

4180 RESTORE 2680:RETURN 

4190 RESTORE 2860:R£TURN 

4200 RESTORE 2970:RETURN 

4210 RESTORE 3100:RETURN 

4220 RESTORE 3230:RETURN 

4230 RESTORE 3350:RETURN 

4240 RESTORE 3460:RETURN 

4250 RESTORE 3570:RETURN 

4260 RESTORE 3720:RETURN 

4270 CLS:LOCATE 3,12:INPUT "nom de 

la partie ",nm* 

4280 t y p = 1 :RETURN 

4290 CLS: INPUT "nom de la partie ", 
nom!:lNPUT "nombre de coups ", 1 n g : I 
NPUT "nom de sauvegarde ",n«t 
4300 OPENOUT nm! 

4310 WRITE #9,nom*,lng 

4320 FOR i * 1 TO lng:CLS 

4330 PRINT "coup no: “ji 

4340 INPUT "blancs ”, bl* : bi*=LQWER* 

( b 1 1 ) 

4350 INPUT "noirs “ ,nr*:nr*=LOWER*< 
nr! ) 


4360 IF bl*=“o-o“ THEN x1 = 5:y 1 = 1 :x2 
=7:y2 = l: GOTO 4430 

4370 IF b!*="0-0-0“ THEN x1 = 5:yl= 1 : 
x2=3:y2=l:SOTO 4430 
4380 IF M1DÎ t bl!,3,1)< >"-" THEN CLS 
.■GOTO 4330 

4390 IF ASC(MID*(bl*,l,l)l-96<l OR 
ASC(MID!(bl!,1,1))-96>8 THEN CLSsGO 
TO 4330 ELSE x1 = ASC(MIDI(b 1 !,1,1))- 
96 

4400 IF VAL(MID*(bl*,2,l)Xl OR VAL 
(MIDI(bl!,2,1))>8 THEN CLS:G0T0 433 
0 ELSE yl=VAL(MID$(bI1,2,1)1 
4410 IF ASC(MID!(bl!,4,1))-96<l OR 
ASC(MID!(bll,4,l))-96>8 THEN CLS:G0 
TO 4330 ELSE x2 = ASC(MI0!(bl*,4,1 H - 
96 

4420 IF VAL(MÎD!(bl!,5,l))<l OR VAL 
(MIDI(bl*,5,1))>8 THEN CLSsGOTO 433 
0 ELSE y2=VAL(MIDI(bl!,5,1)) 

4430 IF nrf="" THEN xx1*0:yy1=0:XX2 

=0:yy2=0:GOTO 4500 

4440 IF nr*="o-o" THEN >:Xl=5:yyl=8: 

xx2=7:yy2=8:GOTO 4500 

4450 IF nr*=''o-p-o" THEN xx!=5:yyl= 

8:xx2=3:yy2=8:GOTO 4500 

4460 IF ASC(MIDI(nr!,1,1))~96<1 OR 

ASC(MIDI(nrl,1,1))-96>8 THEN CLS:G0 

TO 4330 ELSE xx1=ASC(MIDt(nr*,1,i)) 

-96 

4470 IF VAL(MIDI(nr!,2,i))<l OR VAL 
(MID*(nrI,2,11)>8 THEN CLS:G0T0 433 
0 ELSE yyl=VAL(MID*(nr!,2,l)1 
4480 IF ÀSCiMID*(nrl,4,1I1-96<1 OR 
ASC(MID*(nr*,4,l))-96>8 THEN CLSsGO 
TO 4330 ELSE xx2 = ASC(MID*(nr* , 4,1M 
-96 

4490 IF VAL(MID*(nr*,5,11X1 OR VAL 

(MID*(nr *,5,11)>8 THEN CLSsGOTO 433 

0 ELSE yy2=VAL(MIDI(nr*,5,1)1 

4500 WRITE # 9,x1,y 1,x 2,y2,x x1,y y 1,x 

x2,yy2 

4510 NEXT 

4520 CLOSEOUT 

4530 GOTO 3820 


11185] 

111923 

[20663 

[1456] 

€14713 

€10513 

C8783 

19831 

[825) 

[6481 

L1 415 3 

[3149] 

[970) 

[4610] 


[561 ] 

C857) 

[6473 

[1500] 

U2563 

[18903 

[3330) 

C2233) 

[2619] 

15367) 


[60163 


[5119] 


€48373 


13617] 
[23763 
[1938] 
[53963 


[5325] 


[61071 


[55023 


[3017! 

C 3503 
[9023 
[4933 



Trembloteur 


nimal super-actif 
aux va-et-vient 
incessants, le 
trembloteur est un 
être particulière¬ 
ment vorace qui évolue en des 
lieux impossibles gorgés de 
nourriture. Guider judicieuse¬ 
ment ce singulier et vibrant per¬ 
sonnage. afin qu'il dévore sans 
risque et en trois minutes maxi¬ 
mum le contenu de chaque 
tableau, nécessite, on s'en 
doute, réflexe et perspicacité. 

Daniel Audiffren 




10 '******************** [6653 

20 '* TREMBLOTEUR * [698] 

30 ’tt pour tout CPC * [597] 

40 ** AMSTRAD * [722] 

50 '* par * (218] 

60 '* Daniel Audiffren * [1296] 

70 ' ******************** [665] 

80 ' [117] 

90 '** initialisation ** [2240] 

100 ' [117] 


110 MODE 1rMEMORY 34999:DEFINT a-zr [14132] 
CLS:L0CATE 13,10 ! PR I NT CHR*(237ls" 
TREMBLOTEUR " ! CHRt(237):L0CATE 13,1 
4!PRINT"-un inoment svp-":INK 1,9s IN 
K 2,6:INK 3,17:INK 0,0:h=0:DIM z(20 
,15)1ENV 1,10,-1,2: BORDER 4:G0SUB 9 
80 

120 CLS: PEN 2:L0CATE 6 ,12 : PR I NT 11 Vcu [55121 
lez-vous des explications ?“:L0CATE 
18,14:PRINT”0/N” 

130 aî=UPPER*(INKEYS):IF a*="0" THE C2435] 


N G0SUB 1350 : GOTO 180 

140 IF a * = “ N " THEN 180 ELSE 130 [837] 

150 ' [117] 

160 '***»* terrain de jeu ***** [1841] 

170 ' 1117] 


180 MODE 1 : RESTORE 200:F0R 1 = 1 TO 6 [2682] 


:REAÛ v,w,a,p,q,r 

190 PEN p: PAPER q:FOR n = l TO r:L0CA [5157] 
TE v,w:PR I NT STRING*(a,CHR*(207)) : w 
=w+l:NEXT:NEXT 

200 DATA 11,3,24,1,2,19,12,4,22,1,3 [5167] 

,17,2,4,8,1,1,5,2,10,8,1,1,5,2,16,8 

,1,1,5,36,5,4,1,1,15 

210 PAPER 3:PEN 0:LOCATE 15,23 : PR IN [3507] 
T “** TREMBLOTEUR **" 

220 PEN 2 : PAPER 1 :LOCATE 3,5 : PR I NT" [9808] 

SCORE 11 : LOCATE 36,6 : PRINT " VI ES" : LOC 

ATE 3,IliPRINT"NIVEAU"tLOCATE 3,17: ' 

PRINT“TEMPS”:FOR u=9 TO 17 STEP 2:C 

ALL !<9C40,33,u,!<8CB2iNEXT 

230 d=l:e = 5:s=0:t=3:G0SUB 510:EVERV 12799 3 


3000,1 GOSUB 800 

240 x=10:y=8:i=INT(RND*7) [1614] 

250 ' [1173 

260 '****« jeu ***** [417] 

270 ' [117] 


280 v=x+ 12:w=y+4:LOCATE 3,7s PRINT s [7389] 
:LOCATE 3,19 : PR I NT 3-tj"mn“:LOCATE 
4,13: PRINT d:CALL S.9C40, v,«,S- 8 CFE 
290 IF s>1500 AND d=l THEN d=2:G0T0 (18451 
510 

300 IF s>3000 AND d=2 THEN d=3:G0T0 [2737] 
510 

310 IF t=0 THEN 840 [641] 
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Trembloteur 


320 IF INKEY*»"" THEN 340 C572] 

330 CALL î<A028:i=PEEK(*<A02A) [11023 

340 CALL 8<9C40,Y,N,i8C8C 11689 3 

350 ON i\2+l GOSUB 390,380,400,370 C16453 
360 GOTO 280 [4131 

370 x = x-1 s IF x<l THEN x=l:i=2:G0T0 [29013 

410 ELSE 410 


380 x = x + l! IF x >20 THEN x=20:i=6:G0T [36483 
0 410 ELSE 410 

390 y=y-1 s IF y<l THEN y=l:i=4 s GOTO [27513 
410 ELSE 410 

400 y=y + ls IF y>15 THEN y=15ii=0s60T [34203 
0 410 ELSE 410 

410 ON z <x ,y) GOTO 420,430,440,450, [8943 
460,480 

420 s=s+l:GOTO 470 [4773 

430 »»54-1001 SOUND 1,100,10,15,1 sGOT [20743 
0 470 

440 s=s+10:SOUND 1,20,10, i5,1 •• GOTO [17353 
470 

450 SOUND 1,600,10,15,liGOSUB 490iG [18283 
OTO 470 


460 5=5+50!SOUND 1,60,10,15,1 [8313 

470 z <x ,y)=6 [689] 

480 RETURN [5553 

490 e=e-1iLOCATE 38,<e +1)*2+7»PRINT [3911] 

" "! IF e=0 THEN 820 ELSE RETURN 
500 ' [1173 

510 '**«** écran ***** [12623 

520 ' [1173 

530 FOR y=l TO 15j FOR x = l TO 20:z(x (19863 

,y1 = 1 s NEXTî NEXT 

540 ON d GOTO 550,560,570 [4953 

550 RESTORE 740|G0T0 580 [8623 

560 RESTORE 750îG0T0 580 [7673 

570 RESTORE 760 [6913 

580 FOR n=1 TO 26:READ x,y,g:z(x,y) [19683 

=g! IF x=0 THEN 600 

590 z(x,16-y)=g:z(21-x,16-y)=g!z(21 [24253 
-x,y)=g s NEXT 

600 FOR w = 5 TO 19s FOR v=13 TO 32 [19353 

610 k=z<v-12,w-4> [2923 

620 ON k GOTO 630,640,650,660,670 (21773 

630 F = Se8CC5s GOTO 680 [1501] 

640 F=R8C9F: GOTO 680 [ 14983 

650 F=J,8CEBi GOTO 680 [12223 

660 F=68CD8:GOTO 680 [12183 

670 F=?<8CB2 [5923 

680 CALL !c9C40,v,w,F:NEXT:N£XT [16943 

690 IF dOl THEN 240 [5003 

700 RETURN [5553 

710 ' [117] 

720 ■«**** tableaux ***** [6653 

730 ' [1173 


740 DATA 9,1 ,3,9,2,3,9,3,3,9,4,3,9, (75853 
5,3,9,6,3,1,7,3,2,7,3,3,7,3,4,7,3,5 
,7,3,6,7,3,7,7,3,8,7,3,9,7,5,8,6,5, 

7.5.5.6.4.5.7.3.5.2.3.4.2.4.4.4.3.4 
,4,4,4,3,3,2,3,4,2,0,0,0 

750 DATA 9,1,3,9,2,3,9,3,3,8,4,3,8, [75303 
5 i 5 , 1 i7,3^2,7,3,3,7, 3 , 4 , 6 , 3 , 5 ,6, 3^6 
,6,3,7,6,3,8,6,3,7,2,5,6,3,5,5,4,5, 

4.5.5.6.4.5.3.3.2.3.4.2.3.2.4.2.3.4 
,4,3,4,2,4,4,4,4,4,0,0,0 

760 DATA 9,1,3,8,2,3,7,3,3,6,4,3,5, [80593 
5,3,4,6,3,3,7,3,2,8,3,1,8,3,9,8,3,8 
,7,3,8,4,5,7,5,5,6,6,5,5,7,5,8,6,5, 

7.7.5.3.3.2.3.4.2.4.1.4.3.2.4.4.3.4 
, 2 , 4 , 4 , 3 , 5 , 4 , 2 , 6 , 4 , 0 , 0,0 

770 ' [1173 


780 '*»*** temps ***** [6283 
790 ' [1173 
800 t=t-liRETURN [4563 
810 ' [1173 
820 ***** Fin ***** [9483 
830 ' [1173 
840 5 = s + t*l00: IF 5 >h THEN 880 [7943 


850 LOCATE 3,7 : PR INT ssLOCATE 14,13 [38703 
! PAPER liPEN 2: PRINT I, HELAS ! C'EST 
FINI" 

860 FOR c = 1 TO 12:S0UND 1,20,10,15, [46933 
1 : SOUND 2,60,10,15,1:SOUND 4,200,10 
,15,1:SOUND 1 ,600,10,15,1 :NEXT 
870 LOCATE 27,16:PRINT"Enter“:CALL [23813 
6BB06: GOTO 180 

880 MODE 0 : PAPER 1:PEN 3:L0CATE 4,2 [43373 
: PR INT"FELICITAT IONS" 

890 PAPER 2:PEN 3:L0CATE 4,5:PRINT" [53423 
VOUS ETES LE:":LOCATE 7,7:PRINT"CHA 
MPION”:LOCATE 7,9:PRINT"DU JOUR." 

900 PAPER 1 :PEN 0:LOCATE 1,ISiPRINT [54313 
"Votre SCORE est de :":LOCATE 8,17: 

PRINT s 

910 RESTORE 930:ENV 3,1,15,1,I,-3,2 [77163 

,1,0,1,1,0,1,12,-1,4:ENV 2,1,15,1,1 

,0,1,1,0,1,12,-1,8,2,-1,20:FOR c=l 

TO 14:READ per,dur:dur=dur*20 

920 SOUND 1,per,dur,6:S0UND 2,per/3 [44273 

,dur,5,3:SOUND 4,per*2,dur,4,2s NEXT 



930 DATA 319,2,319,2,213,2,213,2,19 [47123 

0,2,190,2,213,4,239,2,239,2,253,2,2 

53,2,284,2,284,2,319,4 

940 h=s:LOCATE 15,23:PR!NT"Enter":C [41413 
ALL &BB06:GOTO 180 

950 ' (1173 

960 '***»* test joystick / Fléchés [10093 

***** 

970 1 [1173 

980 RESTORE 990:FQR c=S<A028 TO &A1 1 (29233 

B: READ ctsPOKE c , VAL ( ” tel) : NEX T 

990 DATA 18,05,00,00,00,00,00,3e,FF [32711 
,32,2à,a0,aF,32,2b,a0,32 , 2c ,aO, ô2 , 2 
d ,aO 
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Trcmbloteur 



1300 DATA 02,01,00,00,05,0a,13,8c,3 131513 

7,ce,37,ce,13,8c,05,0a,00,00,00 

1310 DATA 02,01,ll,88,ll,cc,ll,ee,l C31923 

1 , bb, 11,88,77,88,CT,88,77,88,00 

1320 ' Cl 173 

1330 ’***♦* explications «este C5773 

1340 ' C1173 

1350 CLSt LOCATE 15,3iPR INT"TREMBLOT [ 187293 

EUR"iLOCATE 15,4 s PRINT"-" 

iPEN 1 i LOCATE 5,8iPRINT" TREMBLOTE!) 

R est un petit canard"!PRINT” vorac 
e.Malheureusement tout n'est pas 
bon pour lui." 

1380 PRINTiPRINTiPRINT" Aidez 1 C 114273 
e a choisir le bon grain, grâce 
au JOYSTICK ou au CURSEUR,tout a 
u long des trois niveaux du jeu." 

1370 PRINTiPRINTiPRINT" Attenti [119583 
on,vous ne disposez que de 3 minu 
tes et de 5 vies.ESC permet une p 
ause.COPY arrête Trembloteur mais p 
as 1e chronométré.“ 

1380 LOCATE 30,23iPRINT"Enter"iCALL [34783 
6BB06 

1390 MODE 1 !LOCATE 10,2iPRINT"Voici C75053 
les personnages"iLOCATE 10,3iPRINT 

1400 PEN 2iCALL fc9C40,6,6,S<8CFE:L0C [48423 

ATE 7,6:PRINT" .Tr 

embloteur” 

1410 CALL &9C40,6,8,S<8CC5iL0CATE 7, [28833 

81 PR INT 11 .1 point" 

1420 CALL 89C40,6,10,8c8CEBsL0CATE 7 [38203 

, 10 1 PR INT" .10 poi 

nts" 

1430 CALL 69C40,6,12,68CB2ïL0CATE 7 [44543 

, 12 1 PR INT" .50 poi 

nts" 

1440 CALL &9C40,6,14,S(8C9F:L0CATE 7 [38783 

,14iPRINT" .100 po 

i nt s " 

1450 CALL &9C40,6,16,«<8CD8iL0CATE 7 C39133 

, 16î PRINT" .1 Vie 

perdue" 

1460 PEN 1iLOCATE 18,22:PRINT”-Ente C41603 
r-“ i CALL &BB06 1 RETURN 


1000 DATA 32,2e,a0,cd,d0,a0,cd,C6,a [36363 
0,cd,e3,a0,cd,09,al,3a,2b,a0,Ce,01, 

20, Od 

1010 DATA 3a,2c,aO,Te,01,20,06,3e,0 [28363 
I,32,2a,a0,c9,3a,2c,a0,fe,01,20,0d, 

3a, 2d 

1020 DATA aO,Te,01,20,06,3e,03,32,2 [41113 

a, a0,c9,3a,2d,a0,Te,01,2O,0d,3a,2e, 
aO, Te 

1030 DATA 01,20,06,3e,05,32,2a,aO,c [37353 
9,3a,2e,a0,Te,01,20,0d,3a,2b,a0,Te, 

01,20 

1040 DATA 06,3e,07,32,2a,a0,c9,3a,2 [33723 

b, a0,Te,01,20,06,3e,00,32,2a,a0,c9, 

3a,2c 

1050 DATA aO,Te,01,20,06,3e,02,32,2 [26223 

a, aO,c9,3a,2d,a0,Ce,01,20,06,3e,04, 

32,2a 

1060 DATA a0,c9,3a,2e,aO,Te,01,c0,3 [32863 
e,06,32,2a,a0,c9,3e,00,cd,le,bb,20, 

06, cd 

1070 DATA 24,bb,cb,47,c8,3e,01,32,2 [33123 

b, aO,c9,3e,01,cd,le,bb,20,06,cd,24, 
bb, cb 

1080 DATA 5C,c8,3e,01,32,2c,a0,c9,3 [29263 

e,02,cd,le,bb,20,06,cd,24,bb,cb,4C, 

c8,3e 

1090 DATA 01,32,2d,a0,c9,3e,08,cd,l C35173 
e,bb,20,06,cd,24,bb,cb,57,c8,3e,01, 

32,2e 

1100 DATA a0,c9 [2593 

1110 ' [1173 

1120 '♦**** routine aTTichage *»*«* [12743 

1130 ' [1173 

1140 RESTORE 1150!FOR c=N9C40 TO 69 [41013 

CCliREAD cTiPOKE c , VAL ( " *c P > a NEXT 
1150 DATA 18,04,00,00,00,01,dd,6e,0 [45073 
0,dd,66,01,22,42,9c,dd,e5,dd,2a,42, 

9c , dd 

1160 DATA 7e,00,32,44,9c,dd,7e,01,3 [35523 
2,45,9c ,2a,42,9c,23,23,22,42,9c,dd, 
el,dd 

1170 DATA 7e,02,3d,6T,26,00,e5,06,O [34893 
6.29,10,Cd,eb,el,06,04,29,10,T d,19, 
dd, 7e 

1180 DATA 04,3d,87,5T,16,00,19,11,0 [32153 
0,c0,19,eb,2a,42,9c,3a,45,9c,47,c5, 

06,08 

1190 DATA c5,3a,44,9c,4C,06,00,ed,b [36513 
0, e5,21 ,00,08,19,3a,44,9c,5T,16,00, 
b7, ed 

1200 DATA 52,eb,el,cl,10,e4,e5,eb,l [28743 
!,b0,bC,b7,ed,52,eb,el,cl,10,d4,c9 
1210 1 [1173 

1220 •****» motiCs *»**» [9883 

1230 ' [1173 

1240 RESTORE 1250:FOR c=& 8 C 8 C TO &8 [63153 

DÎOiREAD c4:PQKE c,VAL("&"+c*>!NEXT 
iRETURN 

1250 DATA 02,01,00,00,00,00,00,00,1 [16143 

1 , 88 , 11 , 88 , 00 , 00 , 00 , 00 , 00 , 00,00 

1260 DATA 02,01,c0,30,50,aO,30,cO,6 [30703 

I,68,61,68,30,c0,50,a0,c0,30,00 

1270 DATA 02,01,00,00,03,Oc,34,c2,3 [32723 

5, ca ,35,ca,34,c2,03,0c,00,00,00 

1280 DATA O2,Ol,TO,T0,T7,Te,T7,Te,e [31203 

7,7e,e7,7e,C7,te,C7,Ce,CO,tO,00 

1290 DATA 02,01,00,00,03,Oc,01,08,2 [24603 

1,48,12,84,03,Oc,01,08,00,00,00 
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CARTE 



£ ors de la réalisation 
d'un programme de 
jeu de cartes, quel 
programmeur émé¬ 
rite n'a buté sur le 
problème que pose l'affichage 
desdites cartes, pour peu qu'il 
désire les parer de couleurs 
chatoyantes. La solution basic 
qui consiste à superposer en 
mode transparent, des carac¬ 
tères graphiques de différentes 
couleurs, pénalise trop la 
vitesse d'exécution. La solu¬ 
tion : un utilitaire singulier en 
langage machine (relogeable) 
tel que celui-ci, offrant une 
seule extension RSX : 

I CARTE,X,Y,numéro de la 
carte 

Cette instruction permet d’affi¬ 
cher une carte en mode 1, de 
128 pixels de haut sur 64 de 
large. Les coordonnées graphi¬ 
ques X et Y déterminent la posi¬ 
tion sur l'écran du coin haut et 
gauche de la carte. Le numéro 
de celle-ci doit être compris 
entre 1 et 78 pour un écran de 
40 caractères sur 25 et entre 
1 +256 et 78 + 256. pour un 
écran de 32 caractères sur 32. 
Les 78 cartes ainsi proposées, 
sont celles du jeu de tarot (elles 
incluent le jeu de 52 cartes 
normal). 

Avant affichage, le programme 
vérifie la validité des paramè¬ 
tres et n'effectue rien si l'un 
d'eux est incorrect. Dans le 
cas contraire, il affiche la carte 
demandée à la position désirée 
avec un cadre d'encre 0. 


Les explications et exemples 
relatifs à la mise en oeuvre ce 
cette instruction, sont inclus 
dans le programme basic de 
démonstration. 


Sauvegarde 

Entrez les codes hexadéci¬ 
maux du second listing par le 
programme AMSAISIE (repor¬ 


tez-vous à son mode d'emploi). 
Spécifiez 5A65 comme 
adresse de début et sauvez le 
langage machine par l'option 
« S » sous le nom « CARTE » 
Si vous ne souhaitez pas saisir 
en une seule fois la totalité des 
codes, morcelez votre travail 
en créant plusieurs fichiers 
(CART1, CART2, etc.). Ces der¬ 
niers devront ultérieurement 
être chargés à la suite après un 


MEMORY &5A64 et sauvegar¬ 
dés ainsi dans un fichier 
unique : 

SAVE« CARTE »,b,&5A65,& 
25F7 

N. B. : dans le cas d’une sau¬ 
vegarde K7, ce programme 
binaire devra être sauvé « à la 
suite » du programme basic de 
démonstration. 

Christophe LECLERCQ 


1 ******* copyright avril 1988 ecri [3535] 
t par C . LECLERCQ ****** 

2 MODE 1 : INK 0,3: INK 1,6:INK 2,24:1 [3201] 
NK 3,26:BORDER 3 

3 IF HIMEMO&5A64 THEN MEMORY &5A64 [4143] 
:L0AD N !carte.bin u , &5A65: CALL &5C2C 

•.CALL &5A65 

30 


4 MODE 1 : CALL $<8700 , &C2D2: CALL î<870 C4144] 
0,&C2E6: CALL &8700,$cC2FA: CALL $<8700 

, &C30E 

5 0UT &8C00,6: 0UT &BD00,23 [911] 

6 L0CATE 9,19:PEN 3)PRINT "copyrigh [65413 
t avril 1988":L0CATE 8,21:PEN 1:P 

ftINT"C . LECLERCQ "pPEN 2tPRINT"va 



CARTE 


u5 propose":CALL &823C 

7 WINDOW #0,1,40,24,25 C1151] 

8 PEN 2:PRINT » S”; s PEN 3! PRINT" [59283 
ouvent , quand on fait un programme 

":GOSUB 140 

? CLS:PRINT "qui permette de jouer [43963 
aux cartes contre"sGOSUB 140 

10 CLS: PRINT"son AMSTRAD, on bute 5 [41033 
ur le problème des":G0SUB 140 

11 CLS:PRINT"cartes , En effet , [64083 

on aimerait bien":GOSUB 140 

12 CLS:PRINT”pouvoir afficher a 1' [54573 
écran de belles et":G0SUB 140 

13 CLS:PRINT"grandes cartes , plein [36923 
es de couleurs .* :GOSUB 140 

14 CLS:PRlNT"La solution en basic [51303 
locomotive est de”:G0SUB 140 

15 CLS: PR!NT''superposer en mode [51493 
transparent des":G0SUB 140 

16 CLS:PRINT“caracteres graphiques [46233 
de differ entes”:GOSUB 140 

17 CLS:PRINT"couleurs . Vous voyez [56823 
tous les problemesGOSUB 140 

18 CLS:PRINT"que ce procédé comport [53903 
e . En fait ce qui“:G0SUB 140 

19 CLS:PRINT''penal i se principaleme [44023 
nt cette methode“:GOSUB 140 

20 CLS:PRINT"c ' est la vitesse d'exe [38923 
cution: c'est trop“:G0SUB 140 

21 CLS:PRINT”1ent . Alors , sous ba [61813 
sic , on se resoud":GOSUB 140 

22 CLS:PRINT"a donner le nom des ca [31193 
rtes (ROI de COEUR":GOSUB 140 

23 CLS:PRINT"10 de PIQUE etc ... ) [17153 

, Remarquez qu'il"iGOSUB 140 

24 CLS:PRINT"est toujours possible [58123 
d'avoir de petites“:GOSUB 140 

25 CLS: P.RINT“cart es monocoul eurs [42583 
qui s'affichent*:GOSUB 140 

26 CLS:PRINT“re!ativement rapidemen [44773 
t et qui soient ” :GOSUB 140 

27 CLS:PRINT"bien dessinees .“:G0SU C29963 
B 140 

28 CLS: PEN 2:PRINT" T ; : PEN 3 s PR IN [58213 
T"outefois , la solution est le lan 

gage":GOSUB 140 

29 CLS:PRINT”machine . Je vous pr [28093 
oposerais donc une":G0SU8 140 

30 CLS:PRINT"instruction RSX qui pe [53773 
rmet de tracer des'MGOSUB 140 

31 CLS:PRINT“cartes . Cette extensi [50693 
on RSX possédé une”:G0SUB 140 

32 CLS:PR I NT"pal et te de 78 cartes [41253 
( celles du jeu de”:G0SUB 140 

33 CLS:PRINT”tarot ) . Mais procedo [45433 
ns par ordre :"iGOSUB 140 

34 CLS:PRINT”D 'abord , l’instructio [44103 
n RSX que je vous":G0SU8 140 

35 CLS:PR INT "propose est CARTE . [45483 

Elle a besoin pouc":G0SUB 140 

36 CLS:PRINT"etre effectues de 3 pa [32633 
râmetres : dans "iGOSUB 140 

37 CLSiPRlNT"! 'ordre abscisse puis [38953 
ordonnée et enfin "iGOSUB 140 

38 CLS:PRINT“numero de la carte . [45323 

En résumé il faut":G0SU8 140 

39 CLS:PRINT”f aire ! CARTE,X,V, numer [44083 
o. Les coordonnées":GOSUB 140 

40 CLS:PRINT“X et V sont des coordo [46803 


nnees graphiques : 

“IGOSUB 

140 



41 CLS:PRINT”X variant de 
et Y de 0 a 398 ."iGOSUB 

0 a 
140 

638 

[47363 

42 CLS:PRINT“Le 
varie de I a 78 

numéro de 
: "îGOSUB 

la carte 
140 

[45833 

43 CLS:PRlNT"de 
S":GOSUB 140 

i 

a 14 : 

1 es 

COEUR 

[9993 

44 CLS:PRINT"de 
ES":GOSUB 140 

15 

a 28 : 

1 es 

TREFL 

[16933 

45 CLS:PRINT"de 
AUX"iGOSUB 140 

29 

a 42 : 

1 es 

CARRE 

[24723 

46 CLS:PRlNT"de 
S"iGOSUB 140 

43 

a 56 : 

1 es 

PIQUE 

[19393 

47 CLS:PRINT"!a 
SUB 140 

57 

est 1 ’ESCUSE": GO 

[17313 

48 CLS:PRINT"de 
S”:GOSUB 140 

58 

a 78 : 

1 es 

ATOUT 

[29443 


49 CLS:GOSUB 140:F0R comp=l TO 8;CA [79573 
LL 8.87201NEXT compiPEN 2:PRINT"nume 

ro de carte :”:PEN 3:F0R comp=l TO 
24: CALL S(8720: NEXT comp 

50 CLS;WINDOW #0,1,40,1,25:OUT &BC0 [18543 
0,6:OUT RBDOO,25 

51 FOR pomp= 1 TO 78:L0CATE 18,21 : PR [55513 
INT comp: I CARTE,510,264,comp: FOR te 

mp=0 TO 200:NEXT temp,comp 

52 FOR comp = l TO 136:CALL !<8720:NEX [22093 
T comp 

53 WINDOW #0,1,40,24,25:OUT &BC00,6 [25153 
: OUT &BD00,23 

54 CLS:PEN 2:PRINT" M"i:PEN 3: PRIN [61733 
T“aintenant entrons dans les detail 

s de":GOSUB 140 

55 CLS:PRINT"CARTE :":GOSUB 140 [13833 

56 CLS:PRINT"Les dimensions des ca [41843 
rtes sont de 64":G0SUB 140 

57 CLS:PRINT"points en largeur et d [38093 
e 128 en hauteur .":G0SUB 140 

58 CLS:PRINT"Un cadre de la couleur [27673 
du fond est trace”:G0SUB 140 

59 CLS:PRINT"autour de la carte pou [39871 
r contraster .“iGOSUB 140 

60 CLSiPRINT’Si les coordonnées dep [43271 
assent le bord de":G0SUB 140 

61 CLSsPRINT"! écran par le haut [53181 
ou par la gauche":GOSUB 140 

62 CLSsPRINT"alors la carte n'est [35393 
pas tracee . En“sG0SUB 140 

63 CLS:PRINT"revanche si elles dep [3857] 
assent par le bas”;G0SU8 140 

64 CLS:PRlNT"ou par la droite alo [55811 
rs seul le morceau":GOSUB 140 

65 CLS:PR INT"affichable de la carte [5081 1 
est affiche ."iGOSUB 140 

66 CLS:PRlNT"Les encres sont un peu [41091 
imposées :";G0SUB 140 

67 CLS:PR INT"encr e 0 : 0 ou 3 ou 4" [20831 
:GOSUB 140 

68 CLS:PRINT"encre 1 : 6”:G0SUB 140 C17973 

69 CLS:PR INT“encr e 2 : 24":G0SUB 14 [ 19353 
0 

70 CLS:PRINT"encre 3 : 26":G0SUB 14 [14983 
0 

71 CLS:PRINT"Vous ne pouvez donc c [38693 
hanger ces encres":GOSUB 140 

72 CLS:PR INT”que dans des nuances d [27943 
e couleurs ."iGOSUB 140 

73 CLS:PRINT“Le traçage d'une carte [47443 
s'effectue a une":G0SUB 140 


31 




CARTE 


74 CLSsPRîNT”Frequence d'environ 10 C48103 
tartes/seconde ."sGOSUB 140sG0SUB 

140s GOSUB 140 

75 FOR c omp = 1 TO 100s CALL !<8720sNEX C3401 ] 
T compsOUT SiBCOO, é : DUT !<BD00,25 

76 FOR comp=0 TO 77! 1 CARTE,(coup MO 12731 1 
D 51*128,266,comp*1:NEXT coup 

77 FOR co«p=l TO 130s CALL S.8720s NEX 143891 
T coup s OUT !<BCOO,6sOUT !<BD00,23 

78 CLS:PR INT"Vosci le programme de 14000] 
mi se en service de"sG0SUB 140 

79 CLSiPRINT"CARTE :”sG0SUB 140 1 13831 

80 CLSsPEN 1 i PR X NT " 10 adr = !<8000i ' " •, 168091 
tPEN 2iPRlNT“c'est vous qui Fixes a 

dr"!GOSUB 140 

81 CLSsPRINT" sachant 142861 

que CARTE a une"sGOSUB 140 

82 CLSsPRINT” longueur 13782] 

de Ç<25f 7 octets" s GOSUB 140 

83 CLSsPEN 1 :PRINT"20 MEMORY adr-1" 13093] 
sGOSUB 140 

84 CLS SPRINT”30 L0AD”+CHRF(34)+"CAR 143531 
TE.8IN“+CHRF(34)+“,adr"sGOSUB 140 

85 CLSs PRINT"40 CALL adr”sGOSUB 140 119741 

86 CLSsPEN 3s PR!NT"CARTE peut etre 142141 
loge n'importe ou en"sG0SUB 140 

87 CLS!PRINT"memoire ( CARTE possed 14630] 
e un relogeur ) .“sGOSUB 140 

38 CLSsPRINT“Pour les amateurs dec 13747] 
ran carre , CARTE“sGOSUB 140 

89 CLS:PRINT"oFfre la possibilité d 150051 
e Fonctionner pour“sGOSUB 140 

90 CLSsPRINT"un écran de 32 caracte 135981 
res sur 32 .”s GOSUB 140 

91 CLSs PRINT" 11 suFFit d'ajouter 25 14464] 
6 au numéro de la”sG0SUB 140 

92 CLSsPRINT”carte a aFFicher pour 153481 
qu'il comprenne"sGOSUB 140 

93 CLSiPR INT“que la conFiguration d 161181 
e l’écran a change“sGOSUB 140 

94 CLSsPRINT’Dans ce nouveau mode e 14524] 
cran les abscisses”sGOSUB 140 

95 CLSsPRINT”et les ordonnées varie 12809] 
nt de 0 a 510 . “sGOSUB 140 

96 CLSiPRINT"Et les caracteristique 159481 
s des cartes sont”sGOSUB 140 

97 CLSsPRINT’conservees ( cadre , d 140731 
imension5 etc ) ."sGOSUB 140 

98 GOSUB 140:FOR comp=l TO 106:CALL 12126] 
4,8720s NEXT compsMODE 1 

99 OUT ScBCOÔ, 1 s OUT &BD00,32|0UT !<BC 14671 ] 
00,2s OUT &BDCI0,42 s OUT i,8C00,6s0UT S, 

BDOO , 32 s OUT !<BC00,7s0UT !,8000,34 

100 BORDER Os FOR comp = l TO 200 s ! CAR 158571 
TE,INT(RND*512I,INT(RND*512),INT(RN 

D*78)+257 s NEXT comp 

101 MODE 1 s BORDER 3sOUT !,BC00,ls0UT 161191 
6BD00,40 s OUT S,BC00,2s0UT Î.ED00,46 : 

OUT S,8C00,6s OUT FBDOO,25sOUT S.BCOO, 

7:OUT FBDOO,30 

102 ' 11171 

103 ’ partie de tarot [11251 

104 ' 11171 

105 RESTORE 148sPEN SsLOCATE l,13sP 16374] 

RINT“Voici un exemple de partse”sGO 

SUB 144s MODE 1 

106 LOCATE 6,3s PRINT“DONNEUR s SUD" 13890] 
s 'CALL 1,8700,Î,C040:CALL 4,8700,8,DAB 1 

sCALL 48700,6FD40 


107 FOR comp=0 TO 8 s READ numéros ICA 146671 
RTE,0,330-comp‘34,nuroeros NEXT comp 

108 FOR coiiip=0 TO 3sREAD numéros ICA 126731 
RTE, 128,330-comp*34,numéros NEXT com 

P 

109 FOR comp=0 TO 4:READ numéros ICA 135581 
RTE,256,330-comp*20,numéros NEXT com 

110 GOSUB 144 s LOCATE 1,3:PRINT SPAC 183651 
EF(30)sLOCATE 3,3sPRINT “GARDE 

PASSE"!LOCATE 10,2 s P RIN T “PASSE 
"sLOCATE 10,4 : PR INT “PASSE" 

111 GOSUB 144 s LOCATE 30,11 PRINT "LE 122201 
CHIEN s" 

112 FOR comp=0 TO SsREAD numéros ICA 148351 
RTE,432*(comp MOD 2)*80,370-comp*50 

,numéro:NEXT comp 

113 GOSUB 144:WINDOW #1,1,24,1,4s CL 16314] 

S #1 s WINDOW #1,1,8,5,25s WINDOW #2,9 

,1b,5,25sWINDOW #3,17,24,5,25sWINDO 
W #4 25 40 1 25 

114 CLS#4 :GOSUB 136:CLS #2:F0R comp 18057 3 
=0 TO 2 s READ numéro s I CARTE,128,330- 
comp*34,numérosNEXT compsGOSUB 144 

115 CLS#4 s GOSUB 136 s CLS #3:F0R comp 164191 
= 0 TO 3:READ numeros I CARTE,256,330- 
comp*20,numerosNEXT compsGOSUB 144 

116 CLS#4 s GOSUB 136s CLS #2sF0R comp 159821 
=0 TO 1 s READ numérosICARTE,128,330- 

comp *34, numéro s NEXT compsGOSUB 144 

117 CLS#4 s GOSUB 136 s CLS #3sF0R comp 163361 
=0 TO 2:READ numeros ! CARTE,256,330- 
comp*20,numerosNEXT compsGOSUB 144 

118 CLS#4:GOSUB 136:CLS #1:F0R comp 168851 
=0 TO 7:READ numéros ! CARTE,0,330-co 
mp*34,numérosNEXT compsGOSUB 144 

119 CLS#4:GOSUB 136sCLS #2sICARTE,! 123831 
28,330,53 s GOSUB 144 

120 CLS#4:GOSUB 136|CLS #1 s CLS #2 : F 112000] 
OR comp=0 TO 3sREAD numéros !CARTE,0 
,330-comp*34,numerosN£XT compsFOR c 

omp = 0 TO 3:READ numeros I CARTE,128,3 
30-comp*34,numerosNEXT compsGOSUB 1 
44 

121 CLS#4 s GOSUB 136:CLS N1 : FOR comp 197451 
-0 TO 2sREAD numeros I CARTE,0,330-co 
mp*34,numérosNEXT compsGOSUB 144 

122 CLS#4 s GOSUB 136 s CLS #3sF0R comp 171011 
=0 TO 1 :READ numer d:I CARTE,256,330- 
comp*20,numérosNEXT compsGOSUB 144 

123 CLS#4 s GOSUB 136 :CLS #3:ICARTE,2 146361 
56,330,63s GOSUB 144 

124 CLS#4 s GOSUB 136s CLS #3sG0SUB 14 12490] 

4 

125 CLS#4 s GOSUB 136s CLS #2:FOR comp 18057] 
=0 TO 2s READ numéros I CARTE,128,330- 
comp*34,numérosNEXT compsGOSUB 144 

126 CLS*4 s GOSUB 136 s CLS #1 s FOR comp 178921 
= 0 TO IsREAD numéros ! CARTE,0,330-co 
mp*34,numerosNEXT compsGOSUB 144 

127 CLS#4 s GOSUB 136:CLS #2:F0R comp 159821 
=0 TO IsREAD numérosICARTE,128,330- 
comp*34,numero:NEXT compsGOSUB 144 

128 CLS#4:GOSUB 136 s CLS #1:1 CARTE, 0 130851 
,330,7s GOSUB 144 

129 CLS#4 s GOSUB 136s CLS #2: ICARTE,1 128121 
28,330,21sGOSUB 144 

130 CLS#4:GOSUB 136sCLS #2:G0SUB 14 127251 
4 

131 CL S# 4 sGOSUB 136:CLS #1 :GOSUB 14 [7464] 
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4iLOCATE 1,10:PRINT"0UEST chute de 
5 points":GOSUB 144:GOSUB 144:GOSUE 
144 

132 GOTO 4 [2773 

133 ' U 173 

134 'affichage d'un pli [14953 

135 ' [1173 

136 FOR comp=0 TO 3:READ x,y,numéro [45633 

:! CARTE,x,y,numéro s FOR temp=0 TO 50 

0: NEXT temp,coup :RETURN 

137 ' [1173 

138 'mouvement du texte [14843 

139 ' (1173 

140 FOR comp=l TO 12:CftLL &8720:F0R [45493 

temp=0 TO 80:NEXT temp,comp:RETURN 

141 ' [1173 

142 'boucle d'attente [11403 

143 ’ (1173 

144 FOR temp=0 TO 2000:NEXT tempsRE [20713 

145 ’ [1173 

146 'lignes de data [11573 

147 ' (1173 


148 DATA 1,2,5,6,7,15,19,21,25,29,5 [30153 
1,53,55,58,61,66,68,73,9,11,26,40,5 

4,74 

149 DATA 432,326,43,472,396,56,512, [27373 

326.47.472.256.55.29.51.53 

150 DATA 472,396,64,512,326,71,472, [22753 
256,73,432,326,57,58,61,66,68 

151 DATA 472,256,29,432,326,39,472, [23903 

396.42.512.326.30.51.53 


256.58.432.326.40.61.66.68 

153 DATA 472,256,1,432,326,59,472,3 [37733 
96,14,512,326,3,2,5,6,7,15,19,21,25 

154 DATA 432,326,54,472,396,44,512, [25643 
326,50,472,256,51 

155 DATA 432,326,46,472,396,45,512, [29193 
326,52,472,256,53,2,5,6,7,15,19,21, 

2 5 

156 DATA 472,256,2,432,326,62,472,3 [30343 

96.67.512.326.13.5.6.7 

157 DATA 472,396,36,512,326,32,472, [17533 

256.61.432.326.63.66.68 

158 DATA 432,326,48,472,396,70,512, [21563 
326,72,472,256,66 

159 DATA 512,326,34,472,256,68,432, [20943 
326,74,472,396,37 

160 DATA 432,326,49,472,396,77,512, [22523 

326.60.472.256.25.15.19.21 

161 DATA 472,396,38,512,326,35,472, (18243 

256.5.432.326.75.6.7 

162 DATA 432,326,28,472,396,16,512, [30513 

326.65.472.256.15.19.21 

163 DATA 512,326,4,472,256,6,432,32 [23723 
6,78,472,396,17 

164 DATA 432,326,22,472,396,23,512, [29773 
326,67,472,256,19 

165 DATA 512,326,76,472,256,21,432, [28283 
326,24,472,396,18 

166 DATA 512,326,12,472,256,7,432,3 [25133 
26,26,472,396,20 



mm 




5A65:21 El E9 22 FE FF CD FE:94 
5A6Ds FF 5D 54 DD 21 34 00 DD: 86 
5A75: 19 06 78 DD 6E 00 DD 23s B1 
5A7 Dj DD 66 00 DD 23 19 E5 FD » 15 
5A85: El FD 6E 00 FD 66 01 19:A6 
5A8D:FD 75 00 FD 74 01 10 E3 îBE 
5A95 ï 21 E4 25 19 4D 44 21 EÛ»C4 
5A9Dj 25 19 C3 DI BC 22 08 29:D8 
5AA5:08 32 08 78 08 E4 08 E7i94 
SAADiOB EB 08 EF 08 F4 08 14i09 
5AB5:09 19 09 IC 09 21 09 24 s AO 
5ABDs 09 3A 09 44 09 5D 09 70 1 86 
5AC5» 09 74 09 80 09 83 09 86 s 40 
5 ACDj 09 89 09 8C 09 8F 09 92:81 
5AD5:09 95 09 70 OA 73 OA 76*43 
SADDjOA 79 OA 7C OA 7F OA 82i55 
5AE5: OA 85 OA 89 OA 8C OA 8Fi90 
SAEDsOA 92 OA 95 OA 98 OA 9 BjC 9 
5AF5: OA 9E OA A2 OA A5 OA A8s 04 
5AFD: OA AB OA AE OA Bi OA B4i3D 
5805:OA BA OA DE OA El OA 2B:2C 
5B0D:OB 37 OB 7B OB AO OB BC:A2 
5 B15: 0 B CD OB 2B 09 DE 25 E4:6E 
5B1D: 25 E7 25 01 09 OE 09 97:61 
5625:09 99 09 9B 09 9D 09 9F: 14 
5B2D: 09 Al 09 A3 09 AS 09 A7:3C 
5B35:09 A9 09 AB 09 AD 09 AF:64 


5B3D: 09 B1 09 B3 09 B5 09 B7:8C 
5B45:09 B9 09 BB 09 BD 09 BF:B4 
5B4D:09 Cl 09 C3 09 C5 09 C7:DC 
5855:09 C9 09 CB 09 CD 09 CF:04 
5B5D: 09 DI 09 D3 09 D5 09 D7:2C 
5B65:09 D9 09 DB 09 DD 09 DF s 54 
5B6D:09 El 09 E3 09 E5 09 E7:7C 
5B75:09 E9 09 EB 09 ED 09 EF:A4 


5B7D: 09 Fl 09 F3 09 F5 09 F7iCC 
5885:09 F9 09 FB 09 FD 09 FF :F4 
5BBD: 09 01 OA 03 OA 2B 09 92:CF 
5B95: OC DE 25 IA 08 E4 25 E9:13 
5B9D» 25 E7 25 92 25 01 09 92:7C 
5BA5:OD OE 09 92 OC 03 04 04:CD 
5BAD:OB 01 03 01 03 07 01 38i5B 


5BB5:02 01 02 OD OB 34 10 09:7A 
5BBD:06 01 02 03 06 03 07 19:4D 
5BC5: 01 05 03 1 1 05 05 05 0B * 54 
5BCD:07 15 01 05 01 02 02 01:50 
5BD5:07 06 02 08 01 04 03 05:54 
5BDD:04 03 02 03 08 05 03 01:55 
5BE5:01 01 07 06 04 03 04 02i5C 
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5BED 

01 

OF 

10 

06 

05 

06 

05 

07 

85 

5E5D:33 

FF 

FF 

FF 

F9 

00 

00 

00: E4 

60CD:32 

FO 

FO 

FO 

FO 

8A 

OA 

5F: 12 

5BF5 

02 

13 

06 

06 

04 

01 

OE 

01 

85 

5E65:00 

00 

00 

00 

00 

00 

00 

00 

C3 

60D5:FO 

FO 

F9 

45 

05 

27 

15 

00:94 

5BFD 

12 

01 

08 

07 

03 

OD 

04 

01 

92 

5E6D: 32 

FO 

FO 

FO 

F9 

00 

00 

00 

C6 

60DD:32 

FO 

FO 

FO 

Fl 

FF 

FF 

9D : CB 

5C05 

15 

01 

04 

01 

07 

01 

09 

18 

A5 

5E75:00 

00 

00 

00 

00 

00 

00 

00 

D3 

60E5 s FO 

FO 

F 9 

46 

OA 

IB 

IB 

00: A4 

5C0D 

06 

09 

01 

OA 

01 

08 

OD 

11 

AD 

5E7D : 32 

FO 

FO 

FO 

F9 

00 

00 

00 

D6 

60ED:32 

FO 

FO 

FO 

Fl 

OA 

OA 

98 : EF 

5C15 

05 

OD 

01 

03 

09 

08 

01 

OB 

A7 

5E85:00 

00 

00 

00 

00 

00 

00 

00 

E3 

6 0 F 5 : F 0 

FO 

F9 

45 

05 

15 

OS 

88: IA 

5C1D 

02 

04 

02 

05 

04 

02 

02 

OD 

9B 

5E8D:32 

FO 

FO 

FO 

F9 

00 

00 

00 

E6 

60FD:32 

FO 

FO 

FO 

Fl 

05 

05 

9D:F7 

5C25 

07 

08 

OC 

02 

06 

02 

01 

21 

C8 

5E95:00 

00 

00 

00 

00 

00 

00 

00 

F3 

6105:FO 

FO 

F9 

22 

OA 

OA 

8A 

4C:4B 

5C2D 

38 

5C 

1 1 

10 

81 

01 

2D 

06 

F3 

5E9D:32 

FO 

FO 

FO 

EA 

00 

00 

00 

E7 

61OD:32 

FO 

FO 

FO 

Fl 

OA 

OA 
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723D:B7 
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7285:BD 
72BD: FO 
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729D:C3 
72A5: BD 
72AD:D2 
72B5:DB 
72BD:OD 
72C5: BD 
72CD: OA 
72D5:DB 
72DD x95 
72E5:BD 
72ED:7A 
72F5:53 
72FD: 75 
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7 30 DiFA 
7315:03 
7 31D : F 5 
7325 : F1 
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733D:F5 
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734D: FA 
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738D:BE 
7395 :BE 
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73A5:5A 
73AD:AF 
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73D5:BE 
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3D MADNESS 



irectemenl ins¬ 
piré du célèbre 
Marble Madness, 
ce jeu nécessite 
de la part du 
joueur, un équilibre nerveux 
forçant l'admiration. En effet, 
quelle gageure de manoeuvrer 
calmement dans un décor tor¬ 
turé, une boule aussi sensible 
à l'inertie et à la gravité! Les 
règles sont incluses dans la 
présentation. 

Sauvegarde 

Sauvez le premier listing (pré- 
sentation) sous un nom de 
votre choix («MADNESS» 
semble tout indiqué), puis le 
second (programme principal) 
sous le nom « MADJEU ». 
Entrez ensuite les codes hexa¬ 
décimaux du troisième listing 
par le programme AMSAISIE 
(reportez-vous à son mode 


d'emploi). Spécifiez 9E00 
comme adresse de début et 
sauvez le langage machine par 
l'option «S» sous le nom 
<« MADBIN » Si vous ne souhai¬ 


tez pas saisir en une seule fois 
la totalité des codes, morcelez 
votre travail en créant plusieurs 
fichiers (MADl, MAD2, etc.). 
Ces derniers devront ultérieu¬ 


rement être chargés à la suite 

après un MEMORY 9DFF et 

sauvegardés ainsi dans un 
fichier unique : 

SAVE « MADBIN »,b,&9E00, 
&400 

N. B. : le programme basic de 
présentation est facultatif. 

Précisions techniques 

concernant 

Madbin.bin 

&9E00 : sprite losange 
&9E81: sprite tobogan droit 
&9F02 : sprite tobogan gauche 
&9F90: routine aftichage 
sprite (voir « Super Glups 3D », 
hors série rt° 5) 

&A000 : routine de gestion de 
la balle 

Technique des masques avec 
déplacement au pixel près. 

Claude LE MOULLEC 



10 REM : : ! ; : : : : : ! i : : : : s : : : : ; : t : : s : t £20721 

20 REM t t £4193 

30 REM : PRESENTATION/EXPLICATIONS: £29763 

40 REM I 3 0 MADNESS i £1526] 
50 REM : : £4193 

60 REM ti ! ! ! ! ! ! t 11 ! ! ! ! ! t I i ! 1 î ! 1 ! i ! i £2072] 


70 RESTORE 550tEVERY 30,2 G0SUB 530 £1557] 
80 MODE li BORDER Ot INK 0,0tINK l,0r [3549] 
INK 2,20s INK 3,6 

90 FOR h = 1 TD 70:PL0T RNDM50 + 21 0 , R £29153 
ND#300+110,1s NEXT 

100 FOR h = -144 T0 240 STEP 2s PLOT 4 £3800] 
8,304,3î DRAW h,400tNEXT 

110 FOR h = 352 T0 640 STEP 2tPL0T 64 £39183 
0,144 t DRAW h,01 NEXT 

120 FOR h = -48 T0 144 STEP 2s PLOT h, £41283 
400tDRAW h +400,01 NEXT 

130 PLOT 176,368,lrDRAW 132,398 s DRA £64123 
W 0,3281 DRAW 43,304:DRAW 240,400s PL 
0T 0,400s DRAW 112,336 

140 PLOT 48,0iDRAW 48,304:DRAW 352, £51773 

Oî DRAW 640,1441 PLOT 176,368: DRAW 48 

0,64:PLOT 496,0:DRAW 640,72 

150 >: = 0 s y = 0 s sFOR h = 424 T0 569 STEP £49683 

72 : PLOT h,32+x: DRAW h+72+y, 0 s >t=x+38 

sy=y+72:NEXT 


160 XT=20B:YT=272:p=76 £13913 

170 PLOT 700,700,2:P2=P*P:ORIGIN XT £87033 
,YT: FOR H=0 T0 P«0.71 STEP 2 s J = SQR( 
P2-H*HI:M0VE H,J : DRAW H,-J:M0VE J,H 
iDRAW J,-H:M0VE -H,J s DRAW -H,-JtM0V 
E -J,H:DRAW -J,-H:NEXT:ORIGIN 0,0 
180 PEN 0:L0CATE 12,6 s PR I NT CHRF<14 £52703 
3)sLOCATE 11,7: PRINT CHRP(143):L0CA 
TE ! 1,8sPRINT CHRP(143) 

190 ap=”L.M.C" : >:=350: y=360: col = 3: G0 £3069] 
SUB 230 

200 aP=" 3D" s >r=80s y= 170: GQSI3B 230 £16053 

210 aP="MADNESS":x = 140:y=l00:GOSUB £24523 
230 

220 L0CATE 5,25:PRINT" "sINK £23293 

1,24:GOTO 310 

230 a=LEN( aP ) :a8=a*8 £16363 

240 L0CATE 5,25:PEN 1:PRINT aPjiPEN £19333 
1 

250 tx=xsy2=!4 £5463 

260 FOR f = l T0 8: >:2=64 : FOR g=l TO a £1987] 

8 

270 IF TESTi x 2, y2 ) = 1 THEN PLOT >:+4 £108523 
,y, 2: PLOT >:+4, y-2: PLOT >t, y-2s PLOT x 
+ 2, y-2: PLOT >: +4 , y-4 : PLOT x+2,y-4:PL 
OT >:, y-4 : PLOT >:-2, y +2, col : PLOT >:,y + 

















3D MADNESS 


2: PLOT >i +2, y+2:PLOT >: + 2 , y ; PLOT >:-2, 
yiPLOT »,y 

280 x-x+4ix2=x2+2 [12843 

290 NEXT gsy=y-é»st>:=t>!i y2=y2~2s>! = t>: [20543 
iNEXT f 

300 RETURN [5553 

310 PLOT 0,0,2:LOCATE 20,5:PEN 2iPR [5491 3 
INT CHRi (144): PEN 1 : T A G s FOR >; = 4 4 -4 T 
0 400 STEP -10: MOVE >: ,304 : PRXNT ”S0 
FTWARE " ; : NEXT 

320 PLOT 0,0,1:FOR x=444 TO 400 STE [54973 
P -10: MOVE >:, 230: PR IN T "PRESENTS "j 
:NEXT:T AGOFF 

330 FOR h=0 TO 24 STEP 2:PL0T 414,h [34913 
,0:DRAW 440,h : PLOT 0,374 + 4:DRAW 24, 

374+h:NEXT 

340 FOR H=1 TO 5:M0VE 30,H:DRAW 410 [44413 
,H,5:NEXT:FOR H=4 TO 2O:M0VE 30,H :D 
RAW 410,H,4:NEXT 

350 FOR H~20 TO 22:M0VE 30,H : DRAW 4 [50503 
10,H, 1 : NEXT:FOR H=1 TO 8:M0VE H,24: 

DRAW H,374,5:NEXT 

340 FOR H=8 TO 20:M0VE H,24iDRAW H, [47103 
374,4:NEXTiFOR H=20 TO 22:MQVE H,24 
[DRAW H,374,1 :NEXT 

370 FOR H=414 TO 420:MOVE H,24:DRAW [42853 
H,374,1 :NEXT: FOR H=420 TO 432:M0VE 
H,24:DRAW H,374,4:NEXT 
380 FOR H=432 TO 434iM0VE H,24:DRAW [57443 
H,374,5:NEXT:FOR H=394 TO 400:M0VE 
30,HlDRAW 410,N,5:NEXT 
390 FOR H-382 TO 392:M0VE 30,H:DRAW [34773 
410,H,4:NEXT:FOR H=378 TO 380:M0VE 
30,H:DRAW 410,H,1:NEXT 
400 X=20: FOR T=1 TO 22|M0VE T,X:DRA [29503 
W T,20,5:X=X-1:NEXT T 

410 X = 3B01 FOR T=1 TO 22:M0VE T,X:DR [32943 
AW T,380:X=X+1:NEXT T 

420 X=3B0: FOR T=413 TO 434:M0VE T,3 (33103 
BOiDRAW 418,X:X=X+1 :NEXT T 
430 X = 1: FOR T=413 TO 434:M0VE T,20: [20753 
DRAW T,X:X=X+1:NEXT T 

440 WHILE INKEY'F*"":WEND [ 14073 


450 MODE 1 ;LOCATE 15,1:PEN IsPRINT" [38293 
3D MADNESS" : PEN 2:L0CATE 15,2,-PRINT 

Il __________ Il 

440 PEN 3iLOCATE 1,4:PRINT” Une [12793] 
architecture impossible, une bal 
le qui dévalé la pente et que rien 
n'arrete. Voici plante le décor d 
e 3D MADNESS." 

470 LOCATE 1,9:PRINT” Quelques 1 [110183 
osanges de couleurs qui sont auta 
nt de clefs permettant le pas- sage 
au tableau suivant. Bref, rien de 
très complique." 

480 LOCATE 1,14 : PR INT" Pourtant [1 14493 

cardiaques, nerveux et tremblotteur 
s prière de s ’abtenir ..Ce jeu estres 
erve aux âmes bien neés. 

490 LOCATE 1,18: P RIN T" 1 JOYSTI [58783 

CK, 5 vies, 4 tableaux et..en avant 
pour 1'aventure...." 

500 LOCATE 8,101PEN 2iPRINT”JOYSTIC [21953 
K" 

510 LOCATE 32,22:PEN 1 :PRINT"<ENTER [30273 
>": WHI LE INKEYF-””:WEND 
520 RUN "!MADJEU" [4323 

530 DI : IF (SQ(l) AND 71=0 THEN EI : R (59053 
ETURN ELSE READ p,d:IF p=-l THEN RE 
STORE 550:GOTO 530 

540 SOUND 7,p,d«25,5,1 : GOTO 530 [21453 

550 DATA 189.5,2,142,1.5,142,0.5,12 (53083 

4.5.1.112.5.1.142.1.112.5.1.124.5.1 
,189.5,1.25,142,1.25,142,0.5,124.5, 
1,112.5,1,142,2 

540 DATA 150.5,1.5,189.5,0.5,142,1, [84533 
142,1,124.5,1,112.5,1,104.23,1,112. 

5.1.124.5.1.142.1.150.5.1.139.5.1.1 
49,1,150,5,1,142,3,149,1.5,150.5,0. 

5.149.1.189.5.1 

570 DATA 149,1,150.5,1,142,2,189.5, (75473 
1.. 5,149,0.5,189.5,1 ,213,1 ,225.5,1 , 1 
89.5,3,149,1.5,150.5,0.5,149,1,189. 

5,1,149,1,150.5,1,142,1,149,i,189.5 

,1,142,1,150.5,1,124.5,1,142,4 

580 DATA -1,-1 (4183 


10 REM : : : : : ::: : : : i : : : i : : : : : 

i 

3D MADNESS i 
: 

: i : : i : i : : : : i : : i : : i 

AFTER 94 

97,0,124,48,124,48,48,0,0 
99,0,40,44,44,44,40,0,0 
104,0,48,48,124,48,48,0,0 
ias n sa (A ia ia sa. n n 


20 REM 
30 REM 1 
40 REM : 

50 REM Ml 
40 SYMBOL 
70 SYMBOL 
80 SYMBOL 
90 SYMBOL 
100 SYMBOL 
110 SYMBOL 


105,0,54,14,14,14,54,0,0 

108,0,44,44,44,44,124,0, 


[14913 

[4193 

U5243 

(4193 

(14913 

[12083 

(21283 

(18373 

[17923 

[17433 

[21173 


120 SYMBOL 
>0 

130 SYMBOL 
140 SYMBOL 
0 

150 SYMBOL 
140 SYMBOL 
170 SYMBOL 
0,192,0 
180 MEMORY 
0 
40 


111,0,124,48,48,48,124,0 (19183 


115,0,54,44,54,4,120 
114,0,124,14,14,14,1. 

118,0,48,48,48,40,14,0,0 

230,0,3,15,43,43,15,3,0 

231,0,192,240,252,252,24 


[22073 

(14393 

(18023 

(14473 

(21753 


R9DFF:LOAD "MADBIN",!,9E0 (12443 


190 REM : : : : : i : : : : : : : : : : : :: : t (14913 

200 REM : : [4193 

210 REM t VARIABLES DE BASE : [20813 

220 REM I I [4193 

230 REM : 11: : : : : :i: : : : : : 11 : i : (14913 

240 REC=0 (4543 

250 CALL îcBBFF: MODE 1 : DEFINT a-z [20093 
240 DEF FN po <x ,y) =!<C000+ (y-11 +80+ ( [5853 
x - 1)»2 

270 tr*=CHR*(22)+CHR*(1) [8043 

280 nrl=CHRF(22)+CHR*(0) [7003 

290 1ot=CHRf(230)+CHRF(231) (12473 

300 WINDOW #1,2,39,2,20 (12453 

310 vie=5iel = 10:sc=0:ta=1 :tempo = l 10 [ 13403 
320 REM : 111 : : : 1111 n : i : : i : : l (14913 

330 REM : : [4193 

340 REM I DESSIN DE BASE : (21283 

350 REM i I [4193 

340 REM 11 n 111 :111 : i : n 11 : i i [14913 

370 PEN 2lFOR h=l TO 40|LOCATE h,Il [52983 
PRINT CHR*(13131LOCATE h,211PRINT C 
HR#(131)iNEXT 

380 FOR h=2 TO 20:L0CATE 1,h 1 PRINT [45183 





3D MADNESS 


CHR*<133)>LOCATE 40,h)PRINT CHR*!13 
8 )iNEXT 

390 LOCATE 1,1 !PRINT CHR»<135)sLOCA C24743 
TE 40,1iPRINT CHRP(139) 

400 PEN 2: LOCATE 4,23! PRINT "sc [51423 

vi . ta"!LOCATE 4, 

241PRINT"hi " 

410 PEN 3iLOCATE 28,24iPRINT CHRP(1 121983 
44) 

420 PEN 2lLOCATE 30,24:PRINT “LMC S 117973 
OP T" 

430 PEN 1 :LOCATE 7,23tPRINT ”00000” 117283 
1 LOCATE 7,241PRINT "00000“ 

440 GOSUB 2480 JGGSUB 2490s IF REC>1 [29703 
THEN GOSUB 2520 

450 PLOT 44,12,1s DRAW 44,52sDRAW 19 [28843 

4,52)DRAW 194,12s DRAW 44,12 

440 PLOT 428,121 DRAW 42B,52sDRAW 59 [25313 

4,52)DRAW 594,12)DRAW 428,12 

470 FOR h = 12 TO 52:PL0T 208,h)DRAW [2441 3 

414,h)NEXT h) 

480 PEN 3sLOCATE 20,23sPRINT trt!”3 (38173 
D“!LOCATE 17,24I PRINT "MADNESS," 

490 REM s s s s s s s s )) s s s s s s s s s ) s [14913 

500 REM ) ) (4193 

510 REM s TABLEAU +1 s [5743 

520 REM s s (4193 

530 REM 111)s s si: s : s s s s : s s s s s [14913 

540 GOSUB 2590s teitipo=tempo-10 ( 14433 

550 ON ta GOTO 540,570,580,590,400, [11213 
410,420 

540 RESTORE 2720)GOSUB 480)GOTO 114 [20553 
0 

570 RESTORE 2830:GOSUB 480)GOTO 114 [30213 

0 

580 RESTORE 2880:G0SUB 480:G0T0 114 [20553 

0 

590 RESTORE 2930sG0SUB 4B0sG0T0 114 [22373 

0 

400 RESTORE 2990:G0SUB 480)G0T0 114 (27373 

0 

410 RESTORE 3050sG0SUB 480:G0T0 114 [15023 


0 

420 ta=lstempo=l10 [5483 

430 REM s 1 ! 11 ) 111 ) ) s s s s s s s s s ) 114913 

440 REM s s [4193 

450 REM s DESSIN TABLEAU ) [19523 

440 REM s ) [4193 

470 REM ) : ) s : s s 11 : s : s : : s s i ) i ) (14913 

480 READ droisFOR 1 = 1 TO droi [24333 

490 READ a,b,c)FOR h = l TO c [12093 

700 ax=a+h-l [5233 

710 by=bth-l [7973 

720 CALL !<9F90, F N po ( ax , by ) ,R9F02 (20583 

730 NEXT hiNEXT 1 (7043 

740 READ gau 1 FOR i = l TO gau [9903 

750 READ a,b,c)FOR h=l TO c (12093 

740 ax=a-hsby=b+h-1 (15783 

770 CALL R9F90,FN po<ax,by),R9E81 (20031 

780 NEXT h)NEXT i (7043 

790 READ plat (5853 

800 FOR i = l TO plat)READ a,b,c [18173 

810 FOR h=l TO c: FOR g=l TO c (15853 

820 ax = a +(g * 2)t(h*2)-4 (5873 

830 by=(b+h)-g (5413 

840 CALL R9F90,FN po ( ax , by> ,&9E00 [20143 

850 NEXT g,h)NEXT i (15433 

840 READ 1is I F 1i=0 THEN 920 [10223 

870 FOR h=l TO 1is READ a,b,c [ 14443 

880 FOR i=1 TO esax = a*(1*2)-2 [12743 


890 by=(b+i1-1 [5143 

900 CALL R9F90,FN po(ax,by),R9EOO [20143 

910 NEXT i,h [4133 

920 READ tr)FOR h=l TO tr [11443 

930 READ a,b s b 1=b-l4 [ 10223 

940 15=TEST(a,b 1) [2431 

950 IF ts=0 THEN b 1=b1-2s GOTO 940 [ 17043 

940 PLOT a,b-4,1 : DRAW a,bl+4 [ 14743 

970 NEXT h [3723 

980 READ tr s FOR h = l TO tr [11443 

990 READ a, b : PLOT a,b-4sDRAW a,80 (15471 

1000 NEXT h (3723 

1010 READ 1oiFOR h=l TO 1oiREAD a,b [20953 

1020 dix (h) =a: PEN 2 113173 

1030 LOCATE mx (h),b s PRINT trF|lotsN [20281 
EXT 

1040 READ tx,ty,tx1,tyl [9433 

1050 PEN 0)LOCATE tx.tyiPRINT lot (20783 
1040 LOCATE tx1,ty1 sPRINT loPssh=l (30843 
1070 READ sus,Sx,sy,mar,x 1 ,y 1 [20703 

1080 PRINT nrPsRETURN [11573 

1090 REM )11 s s s 11 s ) iss i s ) s s i s i [14913 

1100 REM s : (4193 

1110 REM s ROUTINE PRINCIPALE! [22253 

1120 REM s s [4193 

1130 REM 1 ! I s ! ! ! I)s ! I ! ! ) ))) ! 1 i [14913 

1140 M=H1iy=y1 (7193 


1150 CALL &AOOO, tx/2)-4 , (y/2)<-7,2 [ 13803 

1140 WHILE INKEYÎ=‘"’:WENDsEVERY tem [38843 
po,1 GOSUB 2370 

1170 IF J0Y(0) = 1 THEN s=1 sel = 10sGOT [9473 
0 1240 

1180 IF JOY(0)=2 THEN s=l)el=10:GOT [14373 
0 1240 

1190 IF JOY(0)=4 THEN s=0sel= 1 0:GOT [24043 
0 1280 

1200 IF J0Y(0)=8 THEN s=0)el=I0:GOT [20383 
0 1300 


1210 IF JOY(0)=14 THEN el=20 [15433 

1220 div-dv + I) IF mv)el THEN 1320 [14893 

1230 GOTO 1170 [3053 

1240 POKE &A12E,8: CALL S<A003:POKE R (20213 
A12E,1)CALL RA003 

1250 x = x + 2:y=yt2sGOTO 1380 [18183 

1240 POKE RAI2E,4)CALL &A003iPOKE i (21913 
A12E,2:CALL RA003 

1270 x = x-2s y=y-2s GOTO 1380 [ 18583 

1280 POKE RAI2E,4 :CALL RA003:POKE R [21713 
A12E,1 s CALL RA003 

1290 x = x-2t y=y+2s GOTO 1380 (18493 

1300 POKE RA12E,8lCALL RA003:P0KE R (15923 
Al2E,2iCALL RA003 

1310 x °x *2)y=y-2sGOTO 1380 [ 18903 

1320 mv-Oiel=el-l■IF s = l THEN 1240 (13123 

ELSE 1300 

1330 REM s s i ) 11 )is)s :is 111 : s : : s s [17343 

1340 REM s S (4193 

1350 REM s TEST PIXEL S/BOULE s [14483 

1340 REM ! ) (419] 

1370 REM ) ! I1 ! S S)1 ! ! I ! ! S 1 S I ! ! I ! ) [17343 

1380 SOUND 1,500,1,5 (10243 

1390 IF TEST(x,y)=1 OR TEST<x.y)=3 [15013 

THEN 1170 

1400 IF TEST(x,y)=0 THEN 1770 17443 

1410 IF TEST(x ,y)=2 THEN 1430 [8833 

1420 GOTO 1170 [3053 

1430 IF y<85 THEN MU=REMAIN(1)iGOTO [19283 


41 






3D M ADNESS 


1910 


1440 1m = 1NT (x/16) i ly=25 — INT <y/16> [ 10531 

1450 tem=0:FOR h = l TO lo [1138] 

1440 1F lx = mx<h> THEN tei»=l [900] 

1470 NEXT [350] 

1480 IF tem=0 THEN lx=lx+l ELSE 152 [794] 

0 

1490 FOR h=l TO lo [443] 

1500 IF 1 >! = m« (h) THEN tem=l [900] 

1510 NEXTiIF te»=0 THEN lx=lx-2 [1348] 
1520 SOUND 2,300*2,4]CALL 4A1D8 [1443] 

1530 DI•.LOCATE lx,ly:PEN 3:PRINT tr C2300] 
F)1oF:El 


1540 CALL 4A098: WHILE INKEYFO.WE [ 1874] 

ND 

1550 1 1 = 1 1 * 1 : IF 11=1o THEN Ll=0iGOS [3097] 
UB 1420 

1540 sc=sc+l00:GOSUB 2500iG0T0 1150 (2707] 


1570 REH I ! i i I ! ! ! ! ! ! ! I ! ! ! II ! ! ! [1491] 

1580 REM ! 1 [419] 

1590 REM ! AFFICHAGE SORTIE : [1443] 

1400 REM 1 : [419] 

1410 REM II I ! ! I I ! ! I 1 i 1 ! ! ! ! ! I I I [1491] 

1420 FOR h = l TO 30iS0UND 1,100-h,2, (2133] 
5iNEXT 

1430 IF sm=l THEN 1480 [841] 

1440 FOR h = 1 TO mar [440] 

1450 Bxl=sx+h-l:syl=sy+h-l [1410] 

1440 CALL &9F90,FN pO(sK 1,sy 1),&9F0 [ 1822] 

2 

1470 NEXTiRETURN [940] 

1480 FOR h = l TO mar [440] 

1490 sxl=sx-h:syl=sy+h-l [830] 

1700 CALL !<9F90,FN po ( sx 1, sy 1 ) ,!<9E8 [17911 

1 

1710 NEXTiRETURN [940] 



1720 

REM 

m j j j j j : j j j m j j : 

M S J J 

[1491] 

1730 

REM 

1 


1 

[419] 

1740 

REM 

j 

VIE -1 

I 

[447] 

1750 

REM 

1 


• 

[419] 

1740 

REM 

i 1 ) M J 

:::::::::: 

ï : j : j 

[1491] 

1770 

ENT 

1,100, 

-4,2:SOUND 

5,400,0,9 

[1723] 

,0,1 






1780 
P -2 

POKE 

&A12E 

,2:FOR h=y 

TO 80 STE 

[1809] 

1790 

TF TEST(x , 

h)<>0 THEN 

POKE ’ î<A03 

[32823 


E,&F0:P0KE &A03F,49F 

1800 CALL 4A003|NEXT [491] 

1810 POKE &A03E,411: POKE !<A03F,S<A0 [1052] 

1820 FOR h=1 TO 5001 NEXT [872] 

1830 CALL 4AlD8ivie=vie-liGOSUB 249 [2429] 
42 


OiGOSUB 2590 

1840 «HILE INKEY$<>" " :«END [1784] 

1850 IF vie=0 THEN 2000 ELSE 1140 [944] 


1840 REM I 111 i i i 1111 111 111 i i i i [1491] 

1870 REM i i [419] 

1880 REM i GAGNE i [441] 

1890 REM 1 i [419] 

1900 REM i i ! i i i i:11 i i i i i 111 111 [1491] 

1910 FOR t = l TO 200iSOUND 1, t , 1,14 1 11178] 

NEXT 

1920 FOR h = l TO 8iF0R i=l TO 4;L0CA [8103] 
TE #1,38,19iPRINT #1,CHRP(10) 1 NEXT 
iiFOR i=1 TO 4iLOCATE #1,1,1tPRINT 
41,CHRP(11)INEXT i,h 

1930 sc=sc+300:GOSUB 2500: ta#ta + l: G [2880] 
OSUB 2480 

1940 WHILE INKEYPO"":WEND:GOTO 540 [2007] 


1950 REM 1 1 ! ! Ii! !iiI ! 1 il 1 1 i 1 1 [ 1474] 

1940 REM î i [419] 

1970 REM 1 PERDU 1 [934] 

1980 REM i ! [419] 

1990 REM 1 1 1 1 1 iil 11 i 1 il1 1 1 i 1 i [1474] 


2000 ENT 4,20,3,Si SOUND 4,20,100,15 [3258] 
,0,4 1 FOR t = l TO 2000iNEXT 
2010 BORDER 4:INK 0,4s INK 1,6:INK 2 [4937] 
, 6 : INK 3,4iCALL !<A 1D 81 mu=REMAIN( 11 1 
sens=lil 1=0 

2020 IF sc>rec THEN rec=sc [4873 

2030 WINDOW #7,5,34,1,25:FOR h=l TO [3134] 
SiLOCATE #7,1,1 : PR I NT #7,CHRP(11>! 

NEXT 

2040 WINDOW #4,1,40,1,8:PAPER #4,3: [7113] 
WINDOW #5,1,5,1,25:PAPER #5,3:WIND0 
W #4,34,40,1,25:PAPER #4,3:WIND0W # 
3,5,34,24,25iPAPER #3,3: 

2050 CLS #3iCLS #4:CLS #5:CLS #4 [1197] 

2040 WINDOW #4,4,35,9,9:PAPER #4,2: 14847] 
WINDOW #5,4,35,23,23:PAPER #5,2:WIN 
DOW #4,4,4,9,23lPAPER #4,2:WIND0W # 
3,35,35,9,23:PAPER #3,2 

2070 CLS #3:CLS #4:CLS #5:CLS #4:sc [ 1422] 
= 0 

2080 DATA 1 ,1,1,0,1,1,0,0,0,0,0,1,0 [4249] 
, 1 , 0 , 1 , 1 , 1 , 0 , 1 , 1 , 0 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 

0 , 1 , 1 , 1 , 0 , 1 ,1,1 

2090 DATA 0,0,1,0,1,0,1,0,0,0,0,1,! [3459] 
,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0, 

0 , 1 , 0 , 0 ,o,i, 0,0 

2100 DATA 0,1,1,0,1,0,1,0,0,0,0,1,0 [3427] 
,1,0,1,1,1,0,1,0,1,0,1,0,1,0,1,1,0, 

0,1,1,1,0,1,1,1 

2110 DATA 0,0,1,0,1,0,1 ,0,0,0,0,1 ,0 [31803 

, 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 0 , 

0,0,0,1,0,0,0,1 

2120 DATA 1,1,1,0,1,1,0,0,0,0,0,1,0 [3947] 

, 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 0 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 

0 , I , 1,1,0,1 ,1 ,1 

2130 PEN 0:RESTORE 2080:F0R G=1 TO [2997] 
4:FOR H=2 TO 39:READ A 

2140 IF A=1 THEN LOCATE H,G:PRINT C (23493 
HRP(1431 

2150 NEXT H,G [382] 

2140 PEN 2 : LOCATE 10,7 1 PR I NT trfj''Y [27541 
OU FALL ON STAGE NR": TA 

2170 PEN 1 :LOCATE 8,25:PRINT”PRESS [4178] 
<RPACE> TO RUN AGAIN" 

2180 INK 0,0:INK 1,24:INK 2,20:INK [443] 





3D M ADNESS 


3,6 

2190 x = 200s y= 150 s CALL Ï.AOOO, (x/2) -4 [1867] 
, (y/2)+7,2 

2200 POKE ï(A12£, 8: CALL S,A003:CALL Si [1760] 

A003 i POKE S<Ai 2£ , 1 i CALL !<A003 

2210 x = x+4:y î =y + 2:G0T0 2280 [1646] 

2220 POKE &A12E,8:CALL 6A003sCALL !< [25731 

A003 s POKE !<A12E , 2: CALL S.A003 

2230 >:=>i+-4 > y=y-2î GOTO 2280 [2289] 

2240 POKE 6A12E,4 :CALL &A003!CALL 4 [2059] 

A003i POKE îcAl 2E, 2s CALL 5.A003 

2250 x=x-4sy=y-2sGOTO 2280 [2729] 

2260 POKE &A12E, 4 sCALL &A003sCALL !< (20181 

A003:POKE &A12E,1 !CALL &A003 

2270 x=x-4sy=y*-2sG0T0 2280 [2080] 

2280 IF TEST<x,y)=2 THEN sen5=sens*1[1539] 

2290 IF sens>4 THEN sens=l [527] 

2300 IF INKEYt=” " THEN 250 [1479] 

2310 ON sens GOTO 2200,2220,2240,22 [1897] 

60 

2320 REM i : i: s ! !ii i : t ! i : : i s : i [1674] 

2330 REM 1 i [419] 

2340 REM i TEMPO DES TROUS : [667] 

2350 REM i i [419] 

2360 REM i: ! : s : : s ■ : : : ; : : : : : : : [16741 

2370 DI 1 ON sh GOTO 2380,2400 [1772] 


2380 sh=2:PEN 3iL0CATE tx,tysPRINT [3647] 

trt)lotsLOCATE tx1,ty1 :PRINT lot 

2390 PEN OiLOCATE tx,ty +1 :PRINT lot [4571 ] 

sLOCATE tx1,ty1 + 1 : PR INT lotsEIsRETU 

RN 

2400 sh=l!PEN 3iLOCATE tx,ty+l:PRIN [3657] 
T trtilotsLOCATE tx1,ty 1 +1 1 PRINT lo 
t 

2410 PEN OiLOCATE tx.tyiPRINT lotsL [40621 
OCATE tx1,ty1iPRINT 1otiEliRETURN 


2420 CALL &BB18iPRINT nrtiEND [2032] 

2430 REM si:ii i i i i : 111111 1111 [ 1674] 

2440 REM i î [419] 

2450 REM i GESTION SCORES i [1349] 

2460 REM I i [4191 

2470 REM t:ii)s i I i ! i 1 i ! i s ! ! ! I [ 1674] 


2480 LOCATE 10,10: PR I NT nrtüPEN 1: [3593] 
LOCATE 35,23î PRINT USING ; t a : FÏE 
TURN 

2490 LOCATE 10,10 : PR I NT nrtüPEN li [47801 
LOCATE 31,23iPRINT USING "#")vie1 RE 
TURN 

2500 IF sc< 1000 THEN LOCATE 9,23:PR [5073] 
INT nrt|* “ILOCATE 8,23iPEN liPRI 

NT trtisc,nrt:RETURN 

2510 IF sc >999 THEN LOCATE 8,23s PRI [3629] 
NT n r t;“ "sLOCATE 7,2 3: P E N liPRI 

NT trt|sc|nrtiRETURN 

2520 IF rec<1000 THEN LOCATE 9,24:P [47961 
RINT nrtj ” “sLOCATE 8,24iPEN 1 1 PR 
INT trtsrec.nrtiRETURN 

2530 IF rec >999 THEN LOCATE 8,24:PR [5401 ] 
INT nrtj ” 11 i LOCATE 7,24:PEN 1 i PR 


INT trt i recJnrti RETURN 

2540 REM ... [ 1554] 

2550 REM i i [4191 

2560 REM ! CHANG COULEURS î [12271 

2570 REM i ! [419] 

2580 REM liüüiü'üüüüü [ 15541 

2590 col -INT <RND*5)+1 [623] 


2600 ON col GOTO 2610,2620,2630,264 [1351] 
0,2650 

2610 BORDER 1tINK 0,lîlNK 1,24:INK t2462] 

2,20»INK 3,6iRETURN 


2620 BORDER 5» INK 0,5»INK 1,0 ! IN K 2 [2472] 
,26: INK 3,9iRETURN 

2630 BORDER 2s INK 0,2»INK I,26:INK [3430] 
2,0lINK 3,14iRETURN 

2640 BORDER Os INK 0,0s INK 1,13s INK [3397] 
2,11 s INK 3,26s RETURN 

2650 BORDER Os INK 0,0s INK 1,26s INK [5186] 
2,6s INK 3,9s RETURN 


l-kSTo. tiW, WhT 



2660 REM : : s s : s s s s s : s s s : : s s : : [16741 

2670 REM s s [419] 

2680 REM : DATAS DES TAB s [1331] 

2690 REM s s [419] 

2700 REM SSISÜSSSSS.ssss [ 1674] 

2710 REM s s s s s TAB 1 : s s : s [589] 


2720 DATA 5,11,6,6,8,10,5,20,4,3,31 [2347] 
3 5 25 8 5 

2730*DATA*4,16,13,2,22,8,4,35,9,4,2 (15731 
8,3,4 

2740 DATA 9,3,4,3,2,9,2,17,12,1,18, [2673] 

3,1,23,7,1,29,2,1,36,8,1,26,15,3,13 

,15,1 

2750 DATA 0 [1671 

2760 DATA 6,32,336,128,288,160,304, [2397] 
224,336,272,352,480,352 

2770 DATA 9,16,256,80,224,112,240,2 [3554] 
24,144,384,272,400,160,496,112,592, 


160,622,272 

2780 DATA 4,5,10,19,3,30,2,35,15 [740] 
2790 DATA 18,12,24,7 [528] 
2800 DATA 0,15,16,4 [687] 
2810 DATA 128,340 [299] 
2820 REM s s : : s TAB 2 s : s : s [874] 


2830 DATA 4,5,10,7,15,5,3,21,2,11,3 [2131] 
2,6,4,2,8,5,4,35,11,2 

2840 DATA 6,9,4,2,12,17,2,28,4,2,32 [3311] 

,13,1,3,9,1,36,10,1,1,18,8,7 

2850 DATA 5,192,304,320,368,432,336 [4218] 

,496,304,560,336,6,32,256,176,128,2 

40,96,304,128,496,160,622,240 

2860 DATA 4,12,4,29,4,4,9,17,18,31, [3220] 

14,37,10,1,29,15,5,336,364 
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3D MADNESS 


2870 REM Jtiü TflB 3 üii: C7783 

2880 DATA 3,4,6,11,7,4,4,27,13,4,3, [49613 

4.4.1.22.2.2.24.13.4.13.2.5.1.5.3.1 
,25,12,1,31,17,1,33,16,1 

2890 DATA 35,15,1,13,7,1,17,9,1,21, 14112] 

11.1.17.5.1.21.7.1.25.9.1.15.17.2.3 
,11,8,5,15,6,5,19,4,5 

2900 DATA 7,96,336,256,288,320,320, 14411] 

320.256.320.192.384.288.480.272.6.1 
6,320,224,128,288,96,352,128.512,11 
2,608,160 

2910 DATA 6,6,3,20,8,20,12,28,8,18, 12681] 
16,36,15,3,5,26,12,1,30,18,2,352,36 
8 

2920 REM ! : ! : ! TAB 4 i : : : i 1810] 

2930 DATA 5,6,5,4,12,10,6,22,5,4,28 13727] 
,10,2,32,13,4,5,9,10,2,15,5,4,23,2, 

2,31,5,4,25,10,6 

2940 DATA 9,2,3,2,16,4,2,32,4,2,10, 13399] 

9.1.26.9.1.30.12.1.2.14.3.16.17.2.3 

6.17.1 

2950 DATA 0,7,16,352,80,320,144,352 13096] 
,176,240,304,304,560,304,622,336 
2960 DATA 9,16,176,112,128,208,176, 13697] 
240,128,304,96,368,128,432,240,592, 
112,622,128 

2970 DATA 5,7,3,35,3,3,14,19,18,37, 12494] 
17,11,9,27,9,0,8,17,3,384,368 


2980 REM s s s > s TAB 5 il!!! 1715] 

2990 DATA 2,11,2,2,15,5,4,6,4,4,1,5 13149] 

,8,2,12,5,3,11,11,4,24,5,4,30,5,2 

3000 DATA 8,5,3,1,2,5,1,2,10,1,4,16 12606] 

,2,19,9,1,22,17,1,13,4,1,31,4,2,2,2 

,5,12,19,3,9 

3010 DATA 7,16,320,112,272,128,352, 12858] 

320,240,544,304,608,336,288 , 352 

3020 DATA 9,16,240,47,224,112,112,1 13922] 

76,144,336,128,368,112,432,144,208, 

224,576,208 

3030 DATA 7,6,3,3,11,9,17,20,4,23,1 12726] 

7.32.4.36.11.9.8.20.9.1.17.14.6.192 
,368 

3040 REM üiii TAB 6 iiiii 11002] 

3050 DATA 2,24,5,2,32,10,3,4,10,2,2 124171 
,21,5,4,28,9,6,34,14,2 

3060 DATA 6,3,6,3,16,9,1,22,4,1,26, 12880) 

7,3,35,13,1,29,17,2,1,9,9,7 

3070 DATA 6,224,304,240,256,272,240 12863] 

,368,320,472,250,592,288 

3080 DATA 6,32,304,352,144,448,128, 119901 

512.96.576.128.608.192 

3090 DATA 5,4,6,17,9,23,4,35,7,32,1 11758] 

9,10,9,22,15,1,14,13,7,176.368 

3100 IF PEEK 16A340) = 1 THE N ga=Bsda 14740] 

= 1 s ht=0s ba=2iFe=9 ELSE ga=74:da=75: 

h t=72 ï b a=73 î fe=76 
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WINDRAD 


C et utilitaire en lan¬ 
gage machine (par¬ 
faitement relogea¬ 
ble), permet la sau¬ 
vegarde compac¬ 
tée de fonds de fenêtres 
(127 maximum) dans un buffer, 
puis leur restitution (exemple 
affichage puis effacement de 
menus déroulants sur une page 
écran, sans altération de celle- 
ci) au moyen des extensions 
RSX suivantes : 

BUFFER,n : présélectionne ia 
taille du buffer 

BUFPLUS,n : agrandit la taille 
du buffer de n octets 
WINDON,n,g,d,h,b,c : sauve 
garde le contenu d'une fenêtre 
dans le buffer 

WINDOFF.n : rétabli le con¬ 
tenu de la fenêtre numéro n 
CLEAR : efface le buffer 
WINCLEAR,n : libère le buffer 
de la sauvegarde numéro n, 
sans remise à l’écran. 

Les explications et exemples 
relatifs à ces nouvelles mstruc- 


m 1111 


| $ IR 

| M il i 1 
k m M a « 

€ û \ ré 



La sauvegarde d’un écran est faite de Manière 
compactée , Je vais vous «outrer 1'avantage du 
compactage, Le buffer dispose de 250OO octets, 

Je vous propose de compter le nombre de fois 
que WINDRAD sauvegardera la page que vous avez 
sous les yeux , 

appuyer sur ESPACE pour commencer 


10 aZ:0:b:0 
20 b-b+1 
30 IH INDON, b, 1,80,1,2S, @a'/, I 
40 if a/:0 tfien 20 
50 PRINT b;aX 
80 FOR i:l 10 b-1 
70 CLS 

80 IWINDOFF,i 
80 NEXT i 


tions, sont inclus dans le pro¬ 
gramme basic de démonstra¬ 
tion, 

Sauvegarde 

Entrez les codes hexadéci¬ 
maux du second listing par le 
programme AMSAISIE (repor 
lez-vous à son mode d'emploi). 
Spécifiez 9FE0 comme adres 
se de début et sauvez le lan¬ 
gage machine par l’option « S » 
sous le nom « WINDRAD ». Si 
vous ne souhaitez pas saisir en 
une seule fois la totalité des 
codes, morcelez votre travail 


en créant plusieurs fichiers 
(WINT, WIN2, etc.). Ces der¬ 
niers devront ultérieurement 
être chargés à la suite après un 

MEMORY &9FDF et sauve 
gardés ainsi dans un fichier 
unique : 

SAVE «WINDRAD», b, 
&9FE0, &716 

N. B. : dans le cas d une sau¬ 
vegarde K7, veillez à sauver ce 
programme binaire « à la 
suite » du programme basic 
de démonstration. 

Christophe LECLERCQ 


10 - Copyright février 1988 — C20873 

20 ’— par Christophe LECLERCQ — C20845 

30 ’----— C14003 

90 MODE 11BORDER 3: INK 0,31INK 1,4! C3385 3 


INK 2,24tINK 3,2 b 

50 MEMORY &7FFF î L0AD"wi ndr ad. bi n" i M U0357I 
EM0RY 4<3E37 a LOCATE 1,25s PEN 1 : PR I NT 
“WINDRAD"!sCflLL &A0DF!LOCATE 1,25s 
PRINT " *|iCALL L9FE0I!BUFFER 

,25000!contrôle*'liIWIND0N,127,3,31 


,1,8,«controleXiG0T0 100 
40 1 C1173 

70 'première page 15443 

80 ' C1173 

90 G0SU8 1540iPAPER OlPEN ! U4973 


100 LOCATE 1,9 1 PEN 2î PRINT “E ,, ssPEN C42113 
3:PRINT "xplication”iLOCATE 1,11 1 P 
EN 2s PRINT "D” ; s PEN 3î PRINT “emonst 
ration" 

110 LOCATE 1,13iPRINT "tapez sur”|! [58223 
PEN 2:PRINT * E"j!PEN 3lPRINT " ou 
sur "j:PEN 2iPRINT " D“î 
120 LOCATE 1,15s PEN 3!PR INT”Copyrig [78143 
ht 1988 écrit par ”j!PEN 2:PRINT“C. 
LECLERCQ» 




















W INDRA D 


130 comp=0:RESTQRE 140:REflD alsWIND I38B03 
OW #0,1,40,17,25:PEN 3:CLB 
140 DATA "WINDRAD est un programme C182873 
d'extension RSXqui a pour but de sa 
uvegarder des ecransou des Fenetres 
en mémoire en vue d'etrerestitues 
. WINDRAD propose au total 6 instr 
uctions : BUFFER , BUFPLUS , WINDON 
, WIND0FF , CLEAR , WINCLEAR 
150 DATA "Le programme que vous voy 1188331 
ez en ce momentest la présentation 
de WINDRAD , Cette présentation co 
mprend une démonstration et les exp 
lications des instructions de WINDR 
AD "tapez sur D ou sur E ."," * 

160. comp=(comp+1) HDD (LEN(a»)+1 ) iP 161391 
RINT MIDI(al,comp,1): : SOUND 1,10,1, 

15:SOUND 1,10,9,0 

170 IF comp=LEN(al> THEN comp=0:PRI 147141 
NT:PRINT:IF al=“ ” THEN RESTORE 140 


iREAD a* ELSE READ a* 

180 IF INKEY < 58)=0 THEN 240 19631 

190 IF INKEY(611=0 THEN 1020 114121 

200 GOTO 160 14211 

210 ‘ 11171 

220 'Explication 14711 

230 ' 11173 


240 GOSUB 1540!WINDOW #0,1 ,40,9,25: 1107521 
CLS:LOCATE 1,1s PEN 21PRINT "EXPLICA 
T ION de : * :LOCATE 1,5:PEN 1 : PR!NT “ 
touches : PRINT:PRINT "B pour sel 

ectionnerPRINT:PRINT "ESPACE pour 
valider":PEN 3 

250 RESTORE 300:WIND0W #0,24,34,9,2 167831 
5:FOR comp=0 TO 7:READ aliPRINT " " 
;al:PR!NT:NEXT comp:compl=0:comp2-7 
260 LOCATE 1,comp2*2+l: RESTORE 300: 162801 
FOR comp.=0 TO comp2:READ al:NEXT co 
■pi a*»* *+af+SPACE#(9-LEN(al)>: PR IN 
T al: 

270 LOCATE 1,compi«2 + 1 : RESTORE 300: 187921 
FOR comp=0 TO compliREAD aliNEXT co 
mp:a$ = " »+a$+SPACEI(9-LEN(at)): PR IN 
T CHR#(24)+a#+CHR$(24)) 

280 IF INKEY <541=0 THEN comp2=compl 134741 
:comp1=Icomp1+1) MOD 8 

290 IF INKEY <471=0 THEN ON compl + 1 121503 

GOTO 340,430,520,600,740,820,890,90 
ELSE 260 

300 DATA WINDRAD,BUFFER,BUFPLUS,WIN 161441 
DON, WINDOFF,CLEAR,WINCLEAR,Menu 
310 1 11171 

320 'windrad 12231 

330 1 11171 

340 MODE 2:INK 1,26:PRINT " WINDRAD 119230] 

est un programme d extension RSX q 
ui permet de sauvegarder le Fond de 
s”:PRINT:PRINT "Fenetres que vous d 
eclarez . Ceci permet de rétablir 1 
'état de l'écran avant la“:PRINT 
350 PRINT “déclaration d'une Fenetr 1131611 
e . 127 Fenetres peuvent etre decla 
rees . Pour stocker":PR INT : PR INT "u 
ne partie de l'écran, WINDRAD posse 
de un buFFer de &39c=924 octets des 
sa mise” 

360 PRINT:PRINT “en service . La gr 1159123 
andeur du buFFer peut etre modiFiee 
. WINDRAD sauvegarde les “:PRINT:P 


RINT “écrans de Façon compactée . L 
e compactage est plus ou moins eFFi 
cace selon 1 a ” : PR INT 
370 PRINT “complexité de l'écran. S 
achez qu'un écran entier nécessite 
"de 255 a 16020 octets“ : PRINT“pour s 
a sauvegarde . Ce qui est generalem 
ent mieux que 16000 octets quelque 
soi t " 

380 PRINT"la complexité de l'écran 
. WINDRAD peut etre loge n'importe 
ou en mémoire PRINT:PRINT “LISTI 
NG :":PRINT:PRINT “10 MEMORY adr-1" 
:PRINT "20 LOAD "+CHR#134)F”WINDRAD 
.BIN"+CHR#134)+",adr"!PRINT "30 CAL 
L adr" 

390 GOSUB 970:GOTO 240 
400 ' 

410 'buFFer 
420 ' 

430 MODE 2: INK 0,26:B0RDER 26:INK 1 
,0:PRINT “ Maigre que la sauvegarde 
en mémoire du Fond d'une Fenetre ( 
j'entends par Fond":PR INT:PRINT"ce 
qu'il y a derrière ) soit Faite de 
maniéré compactée , il peut arrive 
r que". 

440 PR I NT : PR I NT "WINDRAD ne possédé 
pas assez de mémoire pour tout sto 
cker .":PRINT:PRINT "L'instruction 
BUFFER permet de présélectionner la 
place mémoire necessaire": PR I NT : PR 
INT"LISTING :":PRINT 
450 PRINT"10 MEMORY adr-IiLOAD ”+CH 
R#(34) + "WINDRAD.BIN“eCHRt < 34)+",adr 
: cal 1 adr”: PR!NT "20 buF = R1000: ’ 4 
ko c'est vous qui Fixez la mémoire 
disponible": PR INT "30 MEMORY adr-l + 
924-buF”:PR INT”40 !BUFFER,bu F* 

460 PRINT:PRINT "Vous ne pouvez pas 
savoir a l'avance de combien de pl 
ace le buFFer a besoin . 11 : PRINT: PR 1 
NT “Aussi je vous conseille de modi 
Fier son espace mémoire aussi souve 
nt qu'il est 1 ’ 

470 PRINT:PRINT "necessaire jusqu’à 
trouver la longueur correcte pour 
ne plus la modiFier PRINT:PRINT 
"ATTENTION ! A chaque instruction B 
UFFER , toutes les sauvegardes sont 
eFF acees. " 

480 GOTO 390 
490 ' 

500 buFplus 
510 

520 MODE 2:INK 1,0: INK 0,16:B0RDER 
16 

530 PRINT "WINDRAD Fournit la possi 
bilite de simpliFier l'utilisation 
de BUFFER par BUFPLUS":PRINT"qui n' 
eFFace pas les sauvegardes des Fene 
très eFFectuees auparavant . BUFPLU 
S":PRINT 

540 PRINT”permet d'agrandir le buFF 
er déjà existant . Le paramétré que 
vous lui appliquez “:PRINT"contien 
t le nombre d'octet dont le buFFer 
sera grand:s.":PRINT:PRINT"LIST1NG 
:“:PRINT:PRINT"10 no=120:' no : nom 


1150073 


C13667 3 


115421 

11171 

[7513 

11171 

1175453 


1167853 


C149673 


1145293 


1167633 


14943 
11171 
18321 
C11 71 
C 23761 

1153191 


1197743 
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bre d'octets a ajouter au buffer" 

550 PRINT"20 MEMORY HIMEM-no“!PRINT £116341 
"30 îBUFPLUS,na"iPRINT:PRINT"Le but 
fer s'agrandit par le bas' . WINDR 
AD est situe juste au dessus du but 
fer. " 

560 GOTO 390 £4941 

570 ' £1171 

580 ’windon £1861 

590 ' £1171 

600 MODE 2:INK l ,0s INK 0,24:B0RDER £165481 

24 : PR INT "WIND0N est 1'intruction q 
ui permet de sauvegarder une fenetr 
e . Tout comme une "iPRINT “defini 
tion de fenetre WIND0N a besoin des 
paramétrés suivants i“!PRINT 
610 PRINT l, numero de la fenetre ( de £20431 1 
1 a 127 ) , gauche ( de 1 a 20,40 
ou 80 selon le mode "iPRINT “de ! ’e 
cran ) , droite ( de 1 a 20,40 ou 8 
0 1 , haut ( de ! a 25 ) , bas ( de 
1 "iPRINT “a 25 1 , ainsi qu'une 
variable de contrôle de type entier 
e ( ®aX ) " 

620 PR INT :PRINT “Le premier paramet £161181 
re indique le numéro de la fenetre 
( de 1 a 127 ) . Les quatre"iPR INT 
"paramétrés suivants , tout comme u 
ne déclaration de fenetre , indique 
nt les"!PRINT 

630 PR ! NT “dimensions de la fenetre Cil 4551 
. La derniere variable doit etre du 
type entiers et"îPR INT:PRINT"doit 
etre precedee de . Cette variab 
le est utile pour vous 

640 L0CATE 1,25:PRINT “appuyer sur £45721 
ESPACE pour continuer" 

650 IF INKEY(47)< >0 THEN 650 £6191 

660 MODE 2:PRINT “Si apres l'instru £9691 1 
ction WIND0N , la variable vaut :”: 

PRINT:PR1NT "... 0 alors la sauvega 
rde a ete effectues i aucun problem 
e . "iPRIHT 

670 PRINT "... -1 alors il y a une £181711 
erreur de votre part sur les parame 
très ( une fenetre "sPRINT "ayant 
le meme numéro est déjà en mémoire 
, ou la dimension de la fenetre so 
rt de"sPRINT "l'écran , etc ... )”i 
PRINT 

630 PRINT "... une valeur supérieur £222011 
e a 0 alors la sauvegarde n'a pas e 
te effectuée car la " s PR INT ” tai 11e 
du buffer est trop petite . La val 
eur indique combien d'octets manque 
nt ":PR!NT"pour effectuer la sauve 
garde , 11 1 PR! NT 

690 PRINT"WIND0N ne déclaré pas de £103461 
fenetre , elle ne fait que sauvegar 


der des fenetres . 11 : PR INT "L I ST ING 

! 11 ! PR! NT ! PRINT " 10 a7. = i 1 1 WINDON, 1 ,1 
, 20,1,25,®aX":PR INT"20 WIND0W #0,1, 

20,1.25" 

700 GOTO 390 £494] 

710 ' £1173 

720 'windoff £79] 

730 ‘ £1171 

740 MODE 2»INK 0,1:B0RDER 1 s INK 1,2 £168201 

6:PRINT "WIND0FF est l'instruction 


inverse de W1ND0N : elle rétablit a 
l'écran le fond de”! PR I NT“1 a fenet 
re sauvegardée . WIND0FF a besoin d 
'un paramétré compris entre 1 et 12 

7. " 

750 PRINT "Ce paramétré indique le £175081 
numéro de la fenetre a reafficher a 
l’écran . Si aucune ”:PRINT”fenetr 
e ne porte ce numéro alors rien ne 
se passe. En revanche si WINDRAD tr 
ouve” 

760 PRINT"une fenetre portant ce nu £194771 
mero , alors cette fenetre est reaf 
fichee a l'écran et "sPRINT "elle e 
st effacee du buffer . Bien sur WIN 
DRAD peut gerer plusieurs fenetres 
."!PRINT!PRINT"LISTING !“îPRINTlPRI 
NT" 10 ÎWIND0N,1,1,80,1,25,®aX" 

770 PRINT"20 WIND0W #1,1,80,1,25:CL £89481 
S #1"iPRINT"30 {WIND0FF,1 :' Ceci re 
affichera l'écran perdu" 


780 GOTO 390 £4941 
790 ' £1171 
800 'clear £5633 
810 ' £1171 


820 MODE 2iINK 0,4iBORDER 4:1NK 1,2 £167573 
4:PRINT “Les fenetres sauvegardées 
restent en mémoire tant qu'elles n' 
ont pas ete"!PRINT:PRINT"reaffichee 
s . Mais il est aussi utile de les 
effacer du buffer quand elles"iPRIN 
T 

830 PRINT“ne sont plus utilisées . £210103 

L'instruction CLEAR permet d'efface 
r tout le buf fer":PRINT!PRINT"de fa 
con a le libérer complètement . Cet 
te instruction est utile notamment' 1 
•■PRINT i PR INT” a chaque *Break* . “ : PR 
INT 

840 PRINT"LISTING :*iPRINT!PRINT“10 £191681 
1WIND0N, 1 ,1,80,1,20,®aXi? a7."lPRIN 
T "run"!PRINT" 0"!PRINT"Ready"iPRIN 
T”run”iPRINT"-1 la sauvegar 

de est refusee car une fenetre de m 
eme numéro existe deja“iPRINT"Ready 
"!PRINT"!CLEAR!run“iPRINT” 0"iPRINT 


"Ready” 

850 GOTO 390 £4943 
860 ' £1173 
870 'winclear £1953 
880 ' £1173 


890 MODE 2:1 NK 0,9:BORDER 9:INK 1,2 £144653 
6iPRINT “L'instruction WINCLEAR per 
met d'effacer du buffer une seule f 
enetre . WINCLEAR "sPRINT "a besoi 
n d'un paramétré s le numéro de la 
fenetre a effacer ( de 1 a 127 I . 11 
! PR I NT 

900 PRINT "L'instruction WINCLEAR p £201453 
eut etre utile si dans un programme 
vous sauvegardez"!PRINT!PR INT“une 
fenetre qui ne sera pas forcement r 
eaffichee . Dans le cas ou vous ne 
1 a” : F'RINTi PRINT"reaf fichez pas , vo 
us l'effacez du buffer par WINCLEAR 

910 PRINT:PRINT"LISTING i”!PRINTiPR £136123 
INT"10 ! W INDON,1,1,80,1,25,«aï*!PRI 
NT“20 PRINT “+CHR*<34>+”J efface vo 
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tre dessin ? 0/N*fCHR*!34)sPRINT"30 
WH ILE INKEYF="+CHR$(34)+ CHRF(34)+" 

;WEND" 

920 PRINTMO IF INK£YI=“*CHR*<34)+" £42733 
0" rCHRF ( 34 ) +■" THEN (WINCLEAR.l ELSE 


(WINDOFF,1" 

930 GOTO 390 £4941 

940 ’ CU7I 

950 attente de.fin de lecture £ 15481 

940 ' £1171 


970 LOCATE 1,25îPRINT "appuyer sur £44323 
ESPACE pour finir”| 

980 IF INKEY <473=0 THEN RETURN ELSE £22773 
980 

990 1 £1173 

1000 'Démonstration £11443 

1010 ' £1173 

1020 MODE 2s INK 0,0sINK l,24:BORDER £48293 
Os ! WINDOFF,127 

1030 PAPER IsPEN OsLOCATE 1,9:PRINT £74133 
SPACEtl17)SPRINT" DEMONSTRATION 
"SPRINT SPACE4(17) 

1040 PLOT 2,248,0sDRAWR 130,0sDRAWR £43853 
0,-42sDRAWR -130,OsDRAWR 0,42 
1050 WINDOW #0,l,50,13,25sCLS:PLQT £40413 

2,204 s DRAWR 395,0iDRAWR 0,-202sDRAW 
R -395,Os DRAWR 0,202 

1040 WINDOW *0,53,80,9,25s CLSs PLOT £94743 
437,2s DRAWR 0,246:DRAWR -218,Os DRAW 
R 0,-244s DRAWR 218,0sPL0T 437,224sO 
RAWR -218,OsLOCATE 11,2sPRINT "LIST 
ING» 

1070 WINDOW #0,3,48,14,24sPRINTsPRI £143953 
NT “ Je vais essayer de vous mont 
rer toutes les possibilités de WIND 
RAD . Comme vous le savez déjà , WI 
NDRAD peut sauvegarder des écrans e 
n mémoire . Le LISTING est a droite 

1080 PRINTs PRINT "Quand vous etes p £54483 
ret , appuyez sur ESPACE 
1090 WINDOW #0,54,79,13,24:PRINT "1 £70023 
O ' sauvegarde d ' ecr an’’s PR INT "20 a 
Z=0"SPRINT "30 IWINDONfl,1,80,1,25, 

«aX40 CLS"s PRINT "50 !WINDOFF,1" 

1100 (WINDON,1,1,80,1,25,«controleX £14093 
1110 IF INKEY(47)< >0 THEN 1110 £7481 

1120 MODE 2s WINDOW 40,1,80,12,14s CL £111543 
Ss PLOT 2,220s DRAWR 435,OsDRAWR 0,-4 
2:DRAWR -435,0:DRAWR 0,42sL0CATE 14 
,2sPRlNT “L'écran est efface . Appu 
yer sur RETURN pour continuer" 

1130 IF INKEY(18)< >0 THEN 1130 £8523 

1140 (WINDOFF,lsWINDOW 40,3,48,14,2 £118713 
4sCLSsPRINT “ Comme vous venez de 
le voir , 1 écran a ete sauvegarde 
,"sPRINTsPRINT“appuyer sur ESPACE p 
our continuer . " 

1150 IF INKEY (47)00 THEN 1150 £7403 

1140 WINDOW #0,54,79,13,24sCLSsPRIN £122023 
T"10 aX=0sb=0"sPRINT"20 b=b*l"sPRIN 
T" 30 ! WI NDON ,b ,1,80,1,25,Sa 7.40 if a 
X=0 then 20" s PRI NT "50 PRINT bsa?."sP 
RI NT“40 FOR i = l TO b-1”s PR INT“70 CL 
S"s PRINT"80 (WINDOFF,!"SPRINT"90 NE 
XT i" 

1170 WINDOW #0,3,48,14,24lCL5SPRINT £119593 
"La sauvegarde d'un écran est fait 
e de maniéré compactée . Je vais vo 
48 


us montrer l'avantage ducompactage. 

Le buffer dispose de 25000 octets. 

1180 PRINT “Je vous propose de coup £118133 
ter le nombre de fois que WINDRAD 
sauvegadera la page que vous avez s 
ous les yeux .”sPRINTsPRINT"appuyer 
sur ESPACE pour commencer ." 

1190 IF INKEY(47)<>0 THEN 1190 £7323 

1200 comp=0sPRINTsPRINT "ATTENDEZ u £24713 
n peu * 

1210 co»p«comp+l:!WINDON,comp,1,80, £50343 
1,25,ScontroleXs IF controle7.=0 THEN 
1210 

1220 CLS s PRI NT “b ="icomp|" aX = £25883 
" j control eX 

1230 comp»(25000+controieX)/3sPRINT £ 185323 
sPRINT"WINDRAD a donc sauvegarde 2 
écrans et il lui manque";controleX 
i "octets pour sauvegarder un 3eme , 
"sPRINT"Chaque écran est donc sauve 
garde avec s"sPRINT"< 25000 +"jcont 
roleXî") / 3 =")comp; "octets 
1240 PRINTsPRINT"Les deux écrans oc £144403 
cupent donc"sco®p«2!"au lieu"iPRINT 
"de 32000 octets en mémoire . ” s P RIN 
Ts PR INT "appuyer sur ESPACE pour co 
ntinuer ,* 

1250 IF INKEY (47)00 THEN 1250 £4943 

1240 CLS SPRINT "La sauvegarde de ta £174733 
con compactée a donc permisd'econom 
iser”s 32000-2»comp j"octets ."sPRINT 
sPRINT“Quand vous appuierez sur RET 
URN , les pages sauvegardées se r 
eaf ficher ont . “ 

1270 IF INKEY(18)<>0 THEN 1270 £8943 

1280 MODE 2 s1WINDOFF,18 MODE 2s(WIND £21173 
OFF, 2 

1290 WINDOW #0,3,48,14,24s CLSs PRINT £204553 
“La complexité de l'écran ayant une 
très grandesmportance sur le compa 
otage , j'execute le meme program 
me avec les deux fenetres effaceesp 
our vous montrer la différence d'oc 
cupation en mémoire .” 

1300 PRINTs PRINT "appuyer sur ESPAC £43833 
E pour commencer .“ 

1310 IF INKEY (47)00 THEN 1310 £7403 

1320 CLSs PRINT "Attendez un peu”sWI £41293 
NDOW #0,54,79,13,24 sCLSsWINDOW #0,3 
,48,14,24scompl=0 

1330 compl=compl+l8(WINDON,compl,1, £42423 
80,1,25,®controleXsIF controleX-0 T 
HEN 1330 

1340 CLSs PRINT "b =";compls" aX = £34443 
"î controleXscomp1 = (25000*cont roieX) 

/compl 

1350 PRINTsPR!NT“Une page a ete sau £194993 
vegardee avec")compl)"octets”s PR INT 
“au lieu de"scomp;"octets ."sPRINTs 
PRINT"Soit“jcomp-complj"octets de m 
oins ."sPRINTsPRINT "Des que vous ap 
puierez sur ESPACE , les pages se r 
eaf ficheront ." 

1340 IF INKEY(47)< >0 THEN 1340 £7443 

1370 MODE 2s(WINDOFF,1 s MODE 2s(WIND £21171 
OFF, 2 

1380 WINDOW #0,3,48,14,24sCLS:PRINT £ 1 14453 
"WINDRAD n'effectue pas que des sau 
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regardes de page écran . Une applic 
ation très interessantede WINDRAD e 
st les menus déroulants ." 

1390 PRINT:PRINT "appuyer sur RETUR 13196) 

N pour commencer . " 

1400 WINDOW #0.54,79,13,24iPRINT"l 19912) 

' menu deroulant":PRINT"2 IWINDON,! 

,20,40,9,25,®aX3 WINDOW *0,20,40,9, 
25":PRINT"4 ' tente menu etc ...”:P 
R INT"5 ’WINDOFF,1" 

1410 IF INKEY(18)< >0 THEN 1410 1863) 

1420 1WIND0N,1,20,40,9,25,«contrôle 116262) 
X:WINDOW *0,20,40,9,25:PAPER OiPEN 

1 :CLSî PLOT 154,268,11DRAWR 162,0|DR 
AWR 0,“266:DRAWR -162,0:DRAWR 0,266 
:WINDOW #0,22,38,10,25:PRINT CHRP(2 
4K” MENU DEROULANT "tCHRt <24) : PRIN 
T:PR INT "ENREGISTRER": PR INT :PRINT”E 
FFACER" 

1421 PRINT:PRINT"RENOMMER”:PRINT:PR 15919) 
INT "COPIER":PRINT:PRINT "SAUVEGARD 

ER”:PR INT SPRINT“appuyer sur“sPRINT: 

PR INT"ESPACE" 

1430 IF INKEY(47)<>0 THEN 1430 17403 

1440 1WIND0FF,1:1CLEAR:WINDOW *0,54 17614) 
,79,13,24:PAPER !:PEN OsCLSiPRINT " 

1 !6UFFER, 1“:PRINT"2 WINDON,1,1,80, 

1,25,@aX”:PRINT"3 PRINT #7.+ l" 


1450 WINDOW #0,3,48, 14,24:CLS:PRINT 1 1 1444 ) 
"Voici une astuce de programmation 
pour savoir combien d’octets va oc 
cuper une sauvegarde ." 

1460 PRINT:PRINT“Le programme est a 117900) 
droite . Le butter est de loctel ( 
il ne doit jamais etre nul ) a7. va 
udrale nombre d'octets manquants do 
ne le nombre d’octets necessaires 
pour la sauvegarde PRINT:PRINT" 
appuyer sur RETURN .“ 

1470 IF INKEY<18)00 THEN 1470 1872) 

1480 !BUFFER,1 : !W!NDON,1,1,80,1,25. 121162) 
ëcont r o 1 e'/. : CL S : F'R I NT "aX =":coritrol 
e7. : PRINT : PRINT"La sauvegarde de cet 
te page écran nécessite donc":con 
trol e7. rl ; "octets . " s PRI NT: PR I NT ” La 
démonstration est tinie .":PRINT:PR 

T KIT 11 bnnnuar c i : r un P R P û P F . 11 


jni appuyer eu r un tarme , 

1490 IF INKEY(47)<>0 THEN 1490 C7763 

1500 ÎBUFFER,25000: I WINDON,127,5,60 1418'') 
,1,7,êcontro!eX:GOTO 90 

1510 1117) 

1520 'affichage du titre 11245) 

1530 ’ 1117) 

1540 MODE 1 : INK 1,6: INK 0,3:B0RDER 16846) 

3:IWINDOFF,127:controleX-l: IWINDON, 

127,3,31,1,8,êcontroleX:RETURN 
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A4E0: 44 05 28 OD 7E DD B6 14:27 
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SOUS QUELLE 
ETOILE 
SUIS-JE NE ? 


Un logiciel qui vous fera une étude prévisionnelle approfondie 
d’une période donnée , un jour, un mois, un an ou plus; 
(analyse des transita des planètes sur le ciel natal) . 


La disquette pour CPC 


2 disquettes pour CPC 6128 


MIROIR ASTRAL et PREVISIONS ASTRALES existent 
aussi pour PC au prix de 420 F chacun. 


BON DECOMMANDE 

A renvoyer à URANIE Software 

B.P. 84 -83110 SANARY - Tél. 94 74 32 00 
Nom : 


Carte du ciel avec copie d'écran sur imprimante. 
Horloge permettant de suivre les positions 
planétaires en temps réel. 

Calcul des Révolutions solaires. 

Méthode JONAS : calcul des Jours de fécondité astrale. 

Nombreux calculs astronomiques 

(lever et coucher de Lune et de Soleil, éclipses....) 


Adresse 


Ordinateur 


MIROIR ASTRAL 


Je vous commande ; 

□ 1 logiciel "MIROIR ASTRAL" 

□ 1 logiciel "PREVISIONS ASTRALES' 

□ 1 logiciel "HORLOGE ASTRALE" 
ci-joint mon règlement par chèque bancaire 
ou C.C.P (port GRATUIT) 


Calcul et analyse du ciel natal. 

Une astropsychanalyse de 15 pages sur imprimante. 
Un logiciel qui vous surprendra par sa profondeur... 

320 FlA DISQUETTE POUR CPC. 









P ar ce jeu héroïque 
entièrement en lan¬ 
gage machine, vivez 
les affres d’un aven¬ 
turier futuriste, au 
sein d'une vingtaine de souterrains 
mortellement dangeureux, mais 
fort heureusement pourvus de 
munitions et d'objets salvateurs. 
Toutes les indications nécessaires 
sont incluses dans la présentation. 

Sauvegarde 

Sauvez le court programme basic 
loader sous le nom APPMAN. 
puis entrez comme suit, les deux 
listings de codes hexadécimaux 
par le programme AMSAISIE 
(reportez-vous à son mode 
d'emploi). 

1 er listing hexa : spécifiez FAO 
comme adresse de début et sau¬ 
vez le langage machine par 
l'option « S » sous le nom 

« DATA ». 

2 e listing hexa : spécifiez 8340 
comme adresse de début et sau¬ 
vez le langage machine par 


APPMAN 


rx 


gardés ainsi dans deux fichiers 
définitifs : 

1 " fic hier : taper SYMBOL 
AFTER 47, puis OPENOUT « j » : 
MEMORY &F9F : CLOSEOUTet 

charger les fichiers DATA. Sauve¬ 
garde totale par : SAVE 
« DATA >.,b,&FA0,&B7C 
2'fichier : faire un RESET de 
l’ordinateur, puis taper MEMORY 
&833F et charger les fichiers LM. 
Sauvegarde totale par SAVE 
« LM »,b,&8340, &1C52 

Frédéric JEAN 
N. B. : conçu sur 464, ce 
programme présente quel¬ 
ques défauts mineurs sur 
les autres modèles. 


l’option « S » sous le nom « LM ». jg , ***„„****#**„ *************** [1144] 

Si le courage vous manque pour 2 0 ' *♦**#**«•** APPMAN ********** [1279] 

saisir en une seule fois la totalité jg • .»*************#************ [1144] 

des codes, morcelez votre travail 40 SYMBOL AFTER 47 [130H 

en créant plusieurs fichiers (DATAI, 50 OPENOUT " j ” s MEMORY 3999 ! CLOSEOUT [ 1453] 

DATA2,.. puis LM1.LM2, etc.). Ces 40 LOAD "! DATA" , 4000 [1055] 

derniers devront ultérieurement 70 LOAD"!LM”, 33400 (444) 

être chargés à la suite et sauve- 80 CALL 33400 (4541 


OFAOs 

00 

00 

00 

00 

OA 

08 

OA 

00: 

CB 

0FA8 s 

oc 

06 

10 

00 

14 

OA 

OE 

08» 

OD 

OFBOi 

10 

0A 

04 

OB 

OE 

OC 

12 

OA: 

1E 

OFB81 

13 

16 

00 

08 

02 

18 

02 

12» 

28 

0FC0: 

0F 

18 

06 

OF 

OF 

12 

FF 

IC: 

47 

0FC8» 

FC 

00 

01 

57 

IC 

2C 

EB 

00» 

5E 

0FD0* 

01 

57 

2C 

5C 

EA 

00 

01 

6F* 

19 

0FD8 j 

5C 

FC 

EB 

00 

01 

07 

FC 

B61 

E4 

0FE0* 

CB 

00 

u 0 

FF 

C6 

CB 

86 

CO* 

CO 

0FE8 » 

FF 

00 

01 

FF 

CO 

CB 

BO 

00: 

31 

OFFOï 

00 

00 

00 

00 

00 

00 

00 

64* 

63 

0FF8 j 

C5 

5C 

C5 

FF 

FF 

7E 

19 

00» 

82 

1000» 

00 

0 8 

00 

OF 

03 

00 

00 

08» 

32 

1008» 

01 

00 

02 

01 

OB 

12 

00 

13: 

4C 

1010s 

18 

08 

08 

OD 

09 

4F 

06 

06» 

B9 

1018: 

10 

07 

4F 

03 

04 

05 

05 

02» 

Al 

1020» 

08 

03 

0B 

02 

OC 

OB 

OD 

4F: 

BB 

1028» 

04 

0E 

07 

13 

00 

10 

01 

18» 

8D 

1030» 

02 

16 

04 

18 

4F 

08 

14 

OF* 

EE 

1038» 

15 

05 

18 

1 1 

18 

OA 

10 

13* 

DO 

1040» 

11 

0E 

OC 

12 

OF 

FF 

00 

00* 

9B 

1048» 

80 

C3 

B4 

C3 

44 

C7 

FF 

FF» 

IB 

1050» 

00 

19 

00 

00 

12 

00 

13 

04» 

A2 

1058» 

10 

05 

13 

OB 

OA 

04 

OD 

06» 

BC 

1060» 

0A 

09 

0D 

OC 

12 

10 

13 

18: 

E9 

1068» 

10 

0F 

11 

18 

OC 

OF 

OD 

18» 

00 

1070* 

08 

15 

0B 

18 

04 

15 

05 

18: 

F6 

1078» 

00 

09 

03 

18 

00 

00 

00 

09» 

B5 

1080* 

00 

00 

OD 

01 

OE 

00 

12 

00» 

BE 

1088» 

02 

04 

07 

06 

4F 

06 

09 

07» 

10 

1090* 

12 

FF 

00 

FE 

00 

01 

1F 

00» 

CF 

1098» 

34 

FA 

FF 

01 

6F 

34 

30 

FC» 

A5 

10A0» 

00 

01 

5F 

30 

00 

00 

00 

00» 

40 

1ÛA8 * 

00 

00 

89 

C8 

00 

00 

FF 

B9* 

Cl 

10B0» 

C8 

89 

BD 

FF 

00 

01 

FF 

BD: 

8A 

10B8» 

C8 

8D 

00 

00 

00 

00 

00 

001 

10 

10C0» 

00 

00 

84 

Cl 

84 

C2 

FF 

FF* 

59 

10C8» 

76 

19 

00 

00 

10 

00 

13 

02» 

8C 


10D0* 

OC 

03 

13 

OA 

11 

OB 

13 

18» 

53 

10D8 » 

09 

OD 

OF 

10 

06 

13 

12 

14» 

5C 

1 OE 0 » 

OC 

18 

12 

10 

04 

18 

09 

18: 

7B 

1 OE 81 

00 

12 

03 

18 

00 

OD 

01 

13» 

46 

10F0» 

00 

05 

02 

OC 

00 

00 

01 

04: 

18 

10F8» 

00 

00 

05 

02 

04 

03 

05 

07: 

22 

1100» 

08 

00 

09 

05 

OA 

00 

OD 

00* 

3E 

1108» 

04 

OA 

07 

OF 

08 

08 

09 

OA» 

60 

1110: 

4F 

07 

17 

OB 

17 

4F 

OD 

17» 

20 

1118» 

OE 

17 

FF 

78 

F 3 

00 

01 

8F» 

4D 

1120» 

78 

58 

DD 

00 

01 

93 

58 

E 31 

AD 

1128» 

E5 

00 

00 

E3 

BO 

54 

FF 

00 : 

04 

1130» 

01 

63 

54 

FE 

C8 

00 

00 

FD» 

BC 

1138» 

5E 

C8 

Fc 

5D 

FD 

00 

01 

FD: 

C5 

1140* 

5D 

C8 

FD 

94 

CB 

00 

00 

FB» 

CD 

1148» 

E4 

CB 

94 

48 

Cl 

70 

C7 

DC: 

B8 

1150» 

CO 

FF 

FF 

7F 

19 

00 

00 

OC* 

C3 

1158» 

00 

13 

03 

12 

04 

13 

18 

11» 

DI 

1160: 

OA 

11 

OB 

11 

12 

11 

15 

10* 

FO 

1168» 

OE 

10 

OF 

10 

06 

10 

07 

oc» 

DF 

1170: 

06 

OF 

15 

0 0 

18 

13 

18 

00» 

EE 

1178» 

13 

09 

15 

00 

00 

01 

14 

02» 

DI 

1180» 

04 

03 

05 

02 

00 

09 

03 

06* 

B1 

1188* 

06 

08 

07 

03 

08 

0 9 

OF 

FF: 

DI 

1190» 

50 

F 9 

00 

01 

87 

50 

FB 

EA» 

A4 

1198» 

00 

01 

FF 

F8 

ES 

F9 

00 

011 

83 

llAO» 

F7 

E8 

EO 

FE 

00 

01 

27 

EO* 

76 

1 1A8» 

29 

CQ 

00 

00 

FF 

5 9 

C8 

29» 

F3 

11 BO : 

5E 

FF 

00 

01 

FF 

5E 

C8 

2E1 

72 

1168* 

EB 

CB 

00 

00 

FF 

5B 

C8 

26: 

CC 

11 CO» 

74 

C7 

44 

C 2 

AB 

CS 

FF 

FF* 

7D 

11C81 

7F 

14 

00 

00 

OC 

00 

13 

03* 

8E 

1 1 DO: 

12 

0 4 

13 

15 

06 

03 

09 

09: 

3A 

11D8» 

OA 

06 

10 

09 

10 

OA 

10 

OD» 

49 

UEO» 

08 

OC 

OF 

OD 

4F 

06 

OC 

06* 

88 

11E8» 

OF 

05 

10 

10 

1 1 

10 

10 

10» 

6E 

11F0» 

17 

00 

18 

13 

18 

04 

14 

OD» 

80 

11 F8 j 

15 

00 

06 

00 

17 

00 

00 

06: 

46 


1200» 00 

00 

0 1 

03 

03 

02 

03 

03:21 

1208» 11 

04 

OC 

04 

OD 

04 

01 

04 s 55 

1210*09 

02 

12 

0 2 

15 

FF 

30 

EB: 70 

1218» 00 

01 

5F 

30 

68 

F9 

00 

01 » IC 

1220*87 

68 

AF 

D3 

00 

00 

AF 

80: D2 

1228» 7C 

CC 

00 

01 

A7 

7C 

AF 

CS 1 IA 

1230*00 

00 

FF 

3 F 

CD 

AF 

30 

FF * 38 

1238*00 

01 

FF 

3D 

C5 

AD 

D7 

C5» 95 

1240*00 

00 

FE 

27 

C5 

D7 

FF 

FF» 11 

1248:7F 

1 4 

00 

00 

12 

00 

13 

03» 15 

1250*00 

00 

13 

01 

12 

06 

13 

18» B9 

1258:4F 

10 

OD 

11 

10 

8F 

01 

14 > 98 

1260*06 

15 

06 

OF 

OD 

11 

OB 

12» DA 

1268 :OD 

14 

OE 

13 

OF 

15 

0 2 

09» EB 

1270*03 

OE 

00 

00 

00 

10 

00 

13» B6 

1278» 00 

18 

01 

18 

13 

18 

06 

07 » F3 

1280* OD 

OC 

OE 

07 

OF 

OA 

4F 

08» 30 

1288*04 

OF 

04 

4F 

05 

04 

0 7 

06» 16 

1290*04 

04 

0 4 

06 

8F 

02 

0 4 

02» 4B 

1298106 

4F 

02 

1 1 

0 4 

1 1 

FF 

70» 96 

12AQ» C4 

00 

01 

9F 

70 

A4 

FB 

00» 22 

12A8* 01 

E 7 

A4 

E4 

FE 

FF 

01 

27 » 4F 

12B0* E4 

F4 

C5 

00 

01 

OF 

F4 

EO* 43 

12B8* CO 

00 

00 

FC 

00 

CO 

EO 

C7» ED 

12C0* CE 

00 

00 

FF 

67 

CE 

C7 

44 » DF 

12C8» C2 

00 

00 

FE 

04 

C2 

44 

00» A4 

1 2 D 0 » C 2 

GO 

c: 

34 

C7 

D8 

C5 

FF* 85 

1208:FF 

7F 

23 

00 

üû 

13 

00 

13* B1 

12E0»10 

12 

OD 

12 

10 

11 

03 

11*68 

12E8» 10 

OE 

17 

10 

18 

12 

13 

13» BF 

12F0*18 

OC 

13 

OC 

15 

10 

13 

11 » 8E 

12F8» 14 

OC 

OF 

OF 

14 

08 

11 

OB» 80 

1300*12 

08 

15 

09 

15 

02 

13 

05* 7A 

1308» 15 

05 

OD 

06 

OE 

02 

09 

071 68 

1310:OA 

02 

04 

07 

06 

OA 

00 

OF » 64 

1318» OE 

08 

OD 

09 

OE 

OA 

0 3 

OA » 7C 

1320» OA 

OB 

03 

OF 

03 

OF 

04 

OF» 7F 

51 





APPMAN 


1328i08 00 06 0E 08 00 00 03i7C 
1330:10 00 00 13 00 00 00 07:60 
1338:01 00 00 00 18 00 18 0E:BA 
1340:18 FF E4 FE 00 01 27 E4:5B 
1348:70 F 8 00 01 9B 70 A4 FD:70 
1350:00 01 BF A4 08 CE 00 01i9E 
1358:1F 08 91 CO 00 00 FD EliCl 
1360:CO 91 8 E C3 00 00 FF 4E:62 
1368:C3 8 E 4D FF 00 01 FF 4D:65 
1370:C3 BD C 8 Cl 2C C5 C4 C3:D4 
1378:E4 C3 FF FF 7F 23 00 00:D2 
1380:12 00 13 18 OC OA OF 0F:04 
1388: OE 08 OF 09 07 06 OF 07:EC 
1390:OB 08 09 14 OA 12 11 15:12 
1398:05 14 09 15 00 18 13 18:25 
13A0i03 06 05 11 00 00 10 03:E5 
13A8:00 04 00 13 00 14 03 15iFE 
13B0:FF 28 FD 00 01 47 28 F4:4B 
13B8:FD 00 01 OF F4 BF DD 00:68 
13C0:00 BF A4 44 F9 00 01 B7:FB 
l3C8:44 46 C9 00 00 FD F 6 C9iEA 
13D0:46 F9 FD 00 01 FD F9 C9:DF 
13D8:49 59 Cl 00 00 F 6 09 CliOE 
13E0:59 04 C3 74 C7 60 C7 FF:74 
13E8: FF 7F 23 00 00 10 14 13:03 
13F0« 15 12 00 13 14 00 00 13:64 
I3F8i01 00 04 03 07 00 08 00:22 
1400:18 00 18 13 18 02 12 05:88 
1408:15 02 OA 03 OF 07 14 08:72 
1410:15 OB 14 OD 15 07 OE 0B:9A 
1418:13 05 02 05 11 06 OA 0B:77 
1420:OB 08 04 OB 07 OA 08 0B:7A 
1428:06 OF 04 10 09 OD OC 0F:9B 
1430:11 FF 08 Cl 00 01 37 08:5D 
1438:E4 FE 00 01 2F E4 50 FBi 8 D 
1440:00 01 67 50 00 00 00 00:0C 
1448:00 00 86 C2 00 00 FF 36:D9 
1450:C2 86 35 FF 00 01 FF 35:15 
1458* C2 85 00 00 00 00 00 00:B3 
1460:00 00 F4 C2 20 C 6 34 C6:0A 
1468:32 C4 60 C5 FF FF 76 19:24 
1470:00 00 00 00 13 01 00 04:9C 
1478:07 06 00 09 04 OA 09 04:BD 
1480:09 06 OB 04 OC 06 00 0D:D1 
1488:06 14 00 17 13 18 12 04:0E 
1490:13 17 OE 01 OF OA 08 09:07 
1498:OE OA 09 OB OB OE OC OD:OA 
MAO: OF OE OA OF OE 14 OF 13:2E 
14 A 8 : OF 14 FF 90 FE 00 01 D7.-44 
14B0>90 70 FB 00 01 93 70 30:F3 
14B8:FA 00 01 67 30 9F F 8 00:F5 
14C0:01 D7 Al 44 C2 00 00 FB:4E 
14C8:D4 C2 44 BF CO 00 00 F9:2E 
14D0:OF CO BF D5 FB 00 01 FBi3E 
14D8:D5 C2 45 FO C3 B4 C2 E2:D3 
1 4E0:C 6 FF FF 7F 23 00 00 00:5A 
14E8:00 13 01 00 00 01 OE 00:1F 
14F0:11 01 18 04 09 06 10 04:55 
14F8:04 05 06 07 04 08 06 0A:3E 
1500:04 13 06 08 09 OA 10 04:61 
1508:13 OA 14 12 09 13 OA 0C:92 
1510:09 10 OC OC OD 13 14 0C:96 
1518:15 OF 16 00 17 13 18 FF:A 8 
1520:EF F 8 00 01 EF A 8 7F FA:2D 
1528:00 01 7F 38 D 8 CA 00 01:98 
1530:DF D 8 BO FC 00 01 BF B0:18 
1538:60 C5 00 00 FD BO C5 6CT:44 
1540:AO C 6 00 00 FE FO C 6 AO:OF 
1548:5E C2 00 00 FF OE C2 SEiAA 
1550:18 Cl BO C2 04 C4 00 CIi39 
1558:90 C2 Bl C5 Fl C 6 FF FF :EA 
1560:7F 28 00 00 00 00 13 01:30 
1568:12 00 13 OE 12 11 13 18:FE 
1570:00 18 13 18 00 OC 00 18:EC 
1578:00 08 01 OB 00 04 03 05:AD 
1580:00 02 05 03 OE 04 10 09:CA 
1588:OC OA OD 15 02 OE 03 ISi FO 
1590:03 OC 07 OF 09 OE 09 17:01 


1598:07 10 07 15 05 12 05 17:13 

15A0:08 OA 09 OB OA 08 OB 09:01 

15A8:0C 06 OD 07 OA 04 OB 05:01 

15B0:08 06 09 07 06 08 07 09:01 

15B8:04 OA 05 OB 02 08 03 09:01 

15C0:04 06 05 07 06 04 07 05:01 

15C8:FF 08 FF 00 01 27 08 58:6B 

15D0:EB 00 01 67 58 67 F3 00:EA 

15D8:00 67 58 00 00 00 00 00:AC 

15E0:00 E2 Cl 00 00 FA 32 Clz BS 

15E8:E2 37 FA 00 01 FA 37 Cli03 

15F0:E7 EC Cl 00 00 FA 3C Cli90 

15F8:EC F4 C2 EO C2 E4 C2 00:F7 

1600:C3 04 C3 18 C4 64 C5 34:D9 

1608 :C4 88 C3 8 C C3 FO C2 FF : 20 

1610:FF 77 64 00 00 00 00 13:13 

1618:02 00 0$ 01 07 12 00 13:60 

1620:05 12 08 13 18 00 18 0F:A7 

1628:18 OF OE OF 18 00 OA 00:A4 

1630:18 03 06 05 08 08 05 09:8A 

1638:08 OE 05 OF 08 OA 05 0D:9C 

1640:05 01 OA 01 OB 04 OC 07:89 

1648:OC 06 OB OF OB 01 OF 03:A8 

1650:11 04 OF OA OF 06 10 0A:C3 

1658:11 OD OC OD 15 OA 14 0D:E5 

1660:15 06 14 09 14 02 15 07:E0 

1668:15 02 14 03 14 02 06 03:CB 

1670:07 04 09 05 OB FF E4 FE: 8 B 

1678:00 01 IB E4 A4 FD 00 01:30 

1680:D3 A4 E 8 FA 00 01 17 E 8 :EF 

1688:AO C4 00 01 A7 AO 20 C4:2E 

1690:00 00 FC 70 C4 20 2F C4:E9 

1698:00 00 FC 7F C4 2F 87 C2:65 

16A0:00 00 FA D7 C2 87 98 Cl : 29 

16A8:64 C4 52 C 6 FF FF 7F 2D:A8 

I 6 BO 1 OO 00 12 00 13 07 12 OA:OE 

1688:13 18 00 J 8 13 18 00 14:50 

16C0:01 15 00 10 01 11 00 OC: IA 

16C8:01 OD 00 08 01 09 00 04:02 

16D0:01 05 00 00 OE 01 OE 00:09 

16D9:OF 04 04 02 05 09 04 0A:23 

16E0i05 OB 04 10 05 15 06 MME 

16E8:07 17 08 07 08 OB OA 05MD 

I 6 FO 1 OD 05 FF 20 FB 00 01 2F:62 

16F8:21 AO FD 00 01 AF Al 88:A5 

1700:FB 00 01 8 F 88 60 FC 00:86 

1708:01 83 60 DO C3 00 00 FC:92 

171OiCO C3 DO 71 C4 00 00 FC:AB 

171 81 Cl C3 DI C2 FC 00 01 FC:3F 

1720 1 C2 C3 D2 44 C7 08 C 6 00:67 

1728:C2 74 Cl FF FF 7F 64 01:18 

1730:00 00 00 13 01 06 02 09:6C 

1738:03 00 00 00 15 00 15 Ol:7D 

1740:15 01 1 1 01 12 00 18 13»BC 

1748:18 04 15 05 18 05 10 05:C7 

1750:14 04 OA 04 12 02 07 02:AA 

1758iOE 03 07 03 07 02 04 03:9A 

1760:04 OB 04 OC 07 06 06 09:B2 

1768:07 06 08 06 OD 07 OD 09:C4 

1770:OD 07 OE 07 15 07 OA 0C:E2 

1778:OA FC OE 02 OF 09 10 08:D5 

1780:13 09 OC OB OC 11 OD 12:06 

1788:OD 15 OA 14 OB 18 09 10:IB 

1790:09 13 OF 14 OF 18 10 14:31 

1798:13 15 OD OC OF 11 10 0C:2C 

17A0:13 OD 10 10 13 11 10 02:2D 

17A8:10 03 FC OF 16 OF 17 FC:15 

17B0:OF 18 10 18 FC 10 08 10:3A 

17B8:08 FF F4 C5 00 01 03 F4:87 

1700:94 C9 00 01 BB 94 9C FA:1A 

17C8:00 01 B7 9C 53 FE 00 00:84 

1700:53 44 E7 C 6 00 00 FF 37:61 

1708:C6 E7 FC C 6 00 00 FF 4C:A9 

17E01 C 6 FC 14 C7 00 00 FF 64:F7 

17E8:C7 14 DC C3 18 C 6 FA C0:11 

17F0:C4 C4 1E Cl FF FF 7F 64:4F 

17F8:00 01 13 00 13 15 10- 18:73 

1800:13 18 11 14 11 18 11 11 1 B3 


1808:12 11 11 08 11 09 11 04:8B 
1810:11 05 OC 05 11 05 OB 06:76 
1818:OC 07 OC 08 OC 09 OE 08:82 
1820:0F 09 OF OA OF OB 11 0C:A0 
1828:11 OD OF OE 11 OE OC 0F:B5 
1830:OF OF OC 12 OF 12 OF 12:C6 
1838:0F 18 00 18 OD 18 03 15:CC 
1840:03 18 07 16 08 18 08 0D:C5 
1848:08 16 07 OE 07 OF OA 1 St CB 
1850:0F 15 OA OA OA 15 OB 0C:D6 
l858:OD OC 02 OA OA OA 05 0B:B9 
1860:06 OB 05 OC 05 OF 09 06: BD 
1868:09 09 07 08 07 09 08 03iBC 
1870:OA 03 02 04 07 04 04 07:B1 
1878:04 09 05 07 05 07 05 12:CC 
1880:05 15 03 12 05 12 03 OD: EE 
1888:03 11 01 OD 02 OD 01 07:D9 
1B90:01 09 00 00 05 01 00 OO 1 B 8 
1898:13 00 OE 01 11 01 OE 02:F4 
18A0:OF 02 00 00 00 18 07 05:ED 
18A8:07 05 OC 03 OC 04 OD I 61 OE 
18B0:OD 17 FF 00 00 FF FF 00:E9 
18B8:CD 00 00 06 00 OD 00 OF 1 BF 
18C0:00 13 00 00 00 05 01 00:F1 
18C8:02 00 05 00 08 00 OD 00:FC 
1BDOi10 00 11 00 14 00 18 00:35 
18D8:18 05 18 07 18 08 18 0A:6E 
I 8 EO 1 I 8 OB 18 OD 18 OE 18 10: 8 E 
18E8:18 13 18 13 00 13 18 02:83 
1BF0I04 05 06 02 09 02 OD 07:38 
1BF8:01 08 07 OD 03 OE 04 0A:4C 
1900:03 OB 03 10 03 11 03 4F:A0 
1908:11 04 11 07 4F OA 04 0A:B5 
191Oi07 8 F OB 07 10 07 8 F 02:79 
1918:14 03 15 8 F 04 15 05 15:1F 
1920:8F 06 14 08 15 OB 12 0D:29 
1928:13 OD 13 11 15 4F 11 OE 1 O 8 
1930:11 13 4F OF OC OF 10 0F:05 
1938:OB 12 OB OB OA OD OA FF 1 A4 
1940:BC F9 00 01 D3 BC A4 FA:3C 
1948:00 01 CB A4 E4 FE 00 Ol:B4 
1950:2B E4 B 8 FE 00 01 C3 B 8 :AA 
1958:04 C4 00 00 FC 54 C4 04:51 
1960:78 CO 00 00 F 8 C 8 CO 78:A9 
1968:8F C5 00 00 FD DF C5 8F:05 
1970:OC C2 20 C2 88 C2 FD C0:40 
1978:EC C2 FF FF 7F 64 01 00:21 
1980:FC 00 00 05 02 FC 07 00:9F 
1988:08 01 FC 10 00 13 01 FC:C 6 
1990:OA 00 OB 04 FC OD 00 0E:D9 
1998:04 13 01 13 05 00 05 01:E7 
1900:05 00 06 00 18 FC 05 05:E2 
19A8:13 05 FC 13 08 13 OD 10:20 
19B0:OB 10 OD 11 OD 12 OD 11:3F 
19B8:OE 11 15 FC 13 10 13 11:48 
19C0:FC 13 14 13 18 FC 06 08:31 
19C8 1 13 08 03 03 03 OA 02 08:19 
19D0:02 15 04 OE 04 18 06 0C:40 
19D8:06 15 08 OE 08 18 03 0B:50 
19E0:09 OB OA OC OA 15 OC 0F:5D 
I9E8:0C 18 FC OB OC OD OC 0E:5F 
19F0i0B OE 15 00 18 13 18 FFi79 
19F8:FO F9 00 01 2F FO EO FA:F4 
1AOO:00 01 IB EO 14 FF 00 01 1 2A 
1A08:2B 14 40 F9 00 01 4B 40:26 
1A10 * F 7 CO 00 00 F9 47 CO F7:D8 
1A18* ES Cl 00 00 FF 35 Cl E5:B2 
1A20s 36 FF 00 01 FF 36 Cl E6:4C 
1A20: FF FF 7F 4B 01 00 00 00:0B 
1A30:OB 02 OC 00 13 00 00 03:79 
1A38 1 07 05 00 05 00 18 00 18:93 
1A40:OD 18 OF 01 OF 02 OD 03:B0 
1A48:OD 04 13 01 13 02 OA 05:AB 
1A50:13 05 02 08 07 08 05 09:A9 
1A58:05 OE 03 OE 05 OE 02 0C:B7 
1A60:02 OE OB OE 08 OE OC OE:DO 
1A68:OC OE OA 08 OD 08 OA 09:D6 
1A70:OA OE OB OB OC OB 10 08:E7 


APPMAN 


i A 7 8 j 

iO 

08 

10 

09 

12 

u A 

OF 

OBi F9 

1A80 ! 

12 

OE 

13 

05 

13 

18 

10 

171 24 

IA 881 

13 

18 

02 

11 

03 

11 

02 

131 0 9 

1A901 

02 

13 

02 

15 

02 

15 

03 

11:01 

1 A98i 

03 

15 

05 

11 

07 

11 

05 

11 î OE 

1 A A 0 s 

05 

15 

07 

11 

07 

15 

05 

15*22 

1A A 8 > 

07 

15 

09 

11 

09 

14 

09 

15*33 


8340: 

3E 

01 

CD 

OE 

PC 

3E 

00 

CD 

A4 

8348: 

96 

BB 

CD 

50 

83 

C3 

61 

83 

63 

8350: 

3E 

00 

01 

00 

00 

F5 

CD 

32 

06 

8358: 

BC 

Fl 

3 G 

FE 

10 

C2 

52 

83 

69 

8360: 

C9 

06 

IA 

21 

38 

9A 

3E 

41 

3E 

8368: 

CD 

78 

83 

06 

OA 

21 

08 

9B 

87 

8370: 

3E 

30 

CD 

78 

83 

C 3 

89 

83 

F 8 

8378: 

F5 

E5 

C 5 

CD 

A 8 

B B 

Cl 

El 

6 C 

8380: 

Fl 

11 

08 

00 

19 

3C 

10 

FO 

62 

8388: 

C9 

21 

02 

01 

CD 

75 

BB 

06 

FB 

8390: 

55 

21 

6 C 

99 

7E 

E5 

C5 

F5 

AB 

8398: 

78 

FE 

4? 

D4 

30 

85 

F 1 

CD 

21 

83A0: 

5A 

BB 

3E 

01 

CD 

90 

BB 

Cl 

50 

83A8 : 

El 

23 

10 

E 8 

21 

00 

CO 

11 

19 

83B0: 

BO 

04 

06 

08 

C5 

E5 

D5 

01 

75 

B3B8: 

4A 

01 

ED 

BO 

DI 

El 

D5 

CD 

77 

83C0 : 

26 

BC 

DI 

E5 

EE( 

11 

4 A 

01 

22 

83C8: 

19 

EB 

El 

Cl 

10 

E 6 

3E 

01 

26 

83D0 

CD 

OE 

BC 

3E 

02 

CD 

90 

BB 

42 

8308: 

21 

0 2 

OD 

DD 

21 

C4 

99 

CD 

B3 

83E0: 

36 

8 5 

21 

17 

01 

DD 

21 

FF 

54 

83E8: 

99 

CD 

36 

85 

21 

10 

0 7 

DD 

Al 

B3F0: 

21 

ED 

99 

CD 

36 

B5 

3E 

01 

El 

83F8: 

CD 

90 

BB 

2A 

66 

97 

ED 

5B 

02 

8400: 

68 

97 

CD 

IB 

8 C 

FE 

01 

C2 

BB 

8408: 

OD 

84 

22 

68 

97 

21 

00 

00 

5F 

8410» 

22 

66 

97 

2A 

68 

97 

CD 

28 

DI 

8418: 

90 

CD 

15 

90 

3E 

03 

CD 

90 

3C 

8420: 

BB 

21 

04 

OD 

DD 

21 

D2 

99 

FA 

8428: 

CD 

36 

85 

DD 

21 

EO 

99 

21 

CC 

8430» 

OA 

OD 

CD 

36 

85 

3E 

01 

01 

93 

8438: 

OD 

OD 

CD 

32 

BC 

3E 

02 

01 

D2 

8440» 

13 

13 

CD 

32 

BC 

3E 

03 

01 

E7 

8448: 

OE 

OE 

CD 

32 

BC 

CD 

C7 

84 

BB 

8450: 

FE 

20 

CA 

68 

84 

FE 

OD 

CC 

7F 

8458: 

47 

85 

21 

35 

9F 

11 

5E 

97 

A3 

8460: 

01 

06 

00 

ED 

BO 

C3 

40 

83 

OE 

8468: 

21 

00 

00 

22 

66 

97 

CD 

28 

21 

8470: 

88 

AF 

CD 

OE 

BC 

3E 

01 

CD 

CE 

8478: 

90 

BB 

21 

05 

01 

DD 

21 

27 

93 

8480: 

?A 

CD 

36 

85 

3A 

5F 

99 

21 

79 

8488: 

05 

09 

22 

9D -97 

CD 

B 9 

8 E 

84 

8490» 

21 

OA 

01 

DD 

21 

2F 

9A 

CD 

D4 

8498: 

36 

85 

2A 

66 

97 

CD 

28 

90 

83 

84 AO » 

CD 

15 

90 

21 

35 

9F 

1 1 

5E 

FA 

84A8 : 

97 

01 

06 

00 

ED 

BO 

01 

20 

88 

84B0» 

4E 

C5 

AF 

CD 

IB 

B B 

FE 

41 

D 8 

84B8: 

CA 

C5 

84 

Cl 

OB 

78 

B 1 

C2 

06 

84C0» 

B1 

84 

C3 

40 

83 

Cl 

C9 

F3 

7C 

84C8: 

21 

BO 

04 

22 

62 

99 

11 

80 

CF 

84D0» 

C7 

01 

4A 

01 

ED 

4 3 

64 

99 

94 

8408: 

06 

08 

1 1 

80 

C7 

2A 

62 

99 

E7 

84E0: 

CD 

19 

PD 

ED 

43 

66 

99 

22 

58 

84E8» 

68 

99 

ED 

53 

6 A 

99 

01 

50 

01 

84 FO : 

00 

ED 

BO 

ED 

5B 

6 A 

99 

EB 

47 

84F8: 

1 1 

00 

08 

19 

EB 

2A 

68 

99 

C4 

8500: 

ED 

53 

6 A 

99 

11 

4A 

01 

19 

3D 

8508: 

ED 

SB 

6 A 

99 

ED 

4B 

66 

99 

OF 

8510: 

10 

DI 

2A 

62 

99 

23 

22 

62 

42 

8516: 

99 

AF 

CD 

IB 

BB 

FE 

20 

C 8 

6 E 

8520» 

FE 

OD 

CB 

ED 

4 B 

64 

99 

OB 

B 8 

8528: 

78 

B 1 

C2 

D4 

84 

C3 

C7 

84 

FE 

8530: 

3E 

03 

CD 

90 

BB 

C9 

CD 

75 

19 

8538: 

BB 

DD 

7E 

00 

FE 

FF 

ce 

CD 

65 

8540: 

5A 

BB 

DD 

23 

C3 

39 

85 

AF 

OA 

8548: 

CD 

OE 

BC 

CD 

50 

83 

3E 

02 

44 

8550: 

CD 

90 

BB 

21 

ni 

01 

DD 

21 

OE 

8558i 

A9 

9B 

CD 

36 

85 

21 

01 

OD 

D 8 

8560: 

DD 

21 

B3 

9B 

CD 

36 

85 

3E 

F7 


1ABOiOA 

17 

OB 

12 

OB 

12 

OC 

11:42 

1 ABS t OD 

11 

OD 

11 

OD 

15 

10 

11:51 

1ACO:11 

11 

10 

13 

11 

13 

10 

15:68 

1AC8:1i 

15 

OF 

11 

OF 

15 

11 

11: 6 E 

1AD0:11 

15 

11 

03 

11 

04 

FF 

OC» 44 

lAD 8 :C7 

00 

01 

2B 

OC 

2B 

FF 

00: IB 

IAEOjOO 

2B 

OC 

B4 

FC 

00 

01 

FB: DD 


8568 

03 

CD 

90 

BB 

21 

03 

OC 

DD 

15 

8570 

21 

BB 

9B 

CD 

36 

05 

21 

06 

IB 

8578 

OC 

DD 

21 

Cl 

9B 

CD 

36 

85 

EB 

8580 

21 

0 9 

OC 

DD 

21 

CS 

9B 

CD 

69 

8588 

36 

85 

21 

OB 

OC 

DD 

21 

CF 

CD 

8590 

9B 

CD 

36 

BD 

21 

OE 

OC 

DD 

50 

8598 

21 

D 6 

9B 

CD 

36 

85 

21 

10 

68 

85A0. 

OC 

DD 

21 

EO 

9B 

CD 

36 

85 

32 

85A8 

21 

13 

OC 

DD 

21 

EA 

9B 

CD 

BD 

85B0 

36 

8 D 

21 

15 

OC 

DD 

21 

EF 

1F 

85B8 

9B 

CD 

36 

G 5 

21 

IG 

OC 

DD 

82 

85C0: 

21 

F9 

9B 

CD 

36 

85 

CD 

BC 

DB 

85C8 

6 E 

CD 

81 

87 

AF 

CD 

IB 

BB 

02 

85D0: 

FE 

20 

CA 

DB 

85 

C3 

C9 

85 

AB 

8508 

3E 

01 

CD 

OE 

BC 

CD 

50 

83 

D3 

8 5E0: 

3E 

03 

CD 

90 

PB 

21 

01 

08 

E 8 

85E8: 

DD 

21 

90 

9B 

CD 

36 

85 

3E 

5C 

85F0: 

02 

CD 

90 

BB 

21 

0 3 

01 

DD 

91 

85F8: 

21 

FE 

9B 

CD 

36 

85 

3E 

01 

FE 

8600: 

CD 

9 0 

BB 

21 

03 

OF 

DD 

21 

CF 

8608: 

08 

9C 

CD 

36 

85 

21 

04 

OF 

EE 

8610: 

DD 

21 

IA 

9C 

CD 

36 

8 5 

3E 

10 

8618: 

02 

CD 

90 

BB 

21 

06 

01 

DD 

BD 

8620: 

21 

30 

9C 

CD 

36 

85 

3E 

01 

5A 

8628: 

CD 

90 

BB 

21 

06 

OF 

DD 

21 

FA 

8630: 

3B 

9C 

CD 

36 

85 

21 

07 

OF 

4 C 

8638: 

DD 

21 

54 

9C 

CD 

36 

85 

21 

55 

8640: 

08 

OF 

DD 

21 

6 B 

9C 

CD 

36 

E5 

8648: 

85 

3E 

02 

CD 

90 

BD 

21 

OA 

D 6 

8650: 

01 

DD 

2 t 

73 

9 C 

CD 

36 

85 

6 C 

8658: 

3E 

01 

CD 

90 

BB 

21 

OA 

OF 

6 F 

0660: 

DD 

21 

7D 

9C 

CD 

36 

B5 

21 

A 6 

8668 : 

OB 

OF 

DD 

21 

91 

9C 

CD 

36 

36 

8670: 

85 

3E 

02 

CD 

90 

BB 

21 

OD 

01 

8678: 

01 

DD 

21 

A2 

9C 

CD 

36 

85 

C3 

8680: 

3E 

01 

CD 

9 0 

BB 

21 

OD 

OF 

9A 

8688 : 

DD 

21 

AF 

9C 

CD 

36 

85 

21 

00 

8690» 

OE 

OF 

DD 

21 

Cl 

9C 

CD 

36 

91 

8698: 

05 

3E 

02 

CD 

90 

BB 

21 

10 

2C 

86 A 0 » 

01 

DD 

21 

D 2 

9C 

CD 

36 

85 

IB 

B 6 A 8 : 

3E 

01 

CD 

90 

BB 

21 

10 

OF 

C5 

86 B 0 : 

DD 

Cl 

PB 

9C 

CD 

36 

85 

21 

54 

86 BQ: 

11 

OF 

DD 

21 

FO 

9C 

CD 

36 

EB 

86C0: 

85 

3E 

02 

CD 

90 

BB 

21 

13 

57 

86 C 8 : 

01 

DD 

21 

00 

9 D 

CD 

36 

85 

7A 

86D0: 

3E 

01 

CD 

9 0 

BB 

21 

13 

OF 

FO 

8608: 

DD 

21 

16 

9D 

CD 

36 

85 

21 

B 8 

86E0: 

14 

OF 

DD 

21 

2 D 

9D 

CD 

36 

54 

86 E 8 : 

85 

3E 

02 

CD 

90 

B B 

21 

16 

82 

86F0: 

01 

DD 

21 

43 

9D 

CD 

36 

8 5 

DD 

86 F 8 : 

3E 

01 

CD 

90 

BB 

21 

16 

OF 

IB 

8700» 

DD 

21 

4C 

9D 

CD 

36 

85 

21 

17 

8708: 

17 

OF 

DD 

21 

60 

9D 

CD 

36 

B3 

8710: 

85 

CD 

8 C 

8 E 

3E 

01 

01 

11 

54 

8718: 

11 

CD 

3 2 

BC 

CD 

18 

BB 

CD 

D 8 

8720» 

50 

B3 

3E 

01 

CD 

OE 

BC 

3E 

BE 

8728: 

03 

CD 

90 

BB 

21 

01 

05 

DD 

CE 

8730» 

21 

6 C 

9 D 

CD 

36 

85 

3E 

02 

A9 

8738: 

CD 

90 

BB 

21 

04 

01 

DD 

21 

FB 

8740» 

GA 

9D 

CD 

36 

85 

21 

09 

01 

Al 

8748: 

DD 

21 

FA 

9D 

CD 

36 

85 

21 

OD 

B750» 

OD 

01 

DD 

21 

43 

9E 

CD 

36 

C7 

8758: 

85 

21 

13 

01 

DD 

21 

C9 

9E 

FE 

8760: 

CD 

36 

B 5 

3E 

01 

CD 

9 0 

BB 

C 6 

8768: 

21 

18 

14 

DD 

21 

04 

9F 

CD 

AA 

8770» 

36 

85 

CD 

8 C 

9E 

3E 

01 

01 

D9 

8778: 

1 1 

11 

CD 

32 

BC 

CD 

18 

BB 

7C 

8780:C9 

06 

09 

DD 

21 

5A 

9B 

DD 

AF 


1AE 8 :B4 

10 

F9 

00 

01 

23 

10 

19. 

OC 

1AFO:C2 

00 

00 

FF 

B9 

C2 

19 

BA: 

19 

1AF 8 : FF 

00 

01 

FF 

BA 

C2 

IA 

17: 

BE 

1BOO:C7 

00 

00 

FF 

67 

C7 

17 

C4 : 

EA 

1B08:C2 

C 8 

C2 

34 

C7 

1E 

C 4 

4C : 

98 

1 B10 : C 3 

4C 

C7 

FF 

FF 

7F 

64 

FF: 

El 

1B1G * FF 

FF 

FF 

23 

00 

00 

00 

00 : 

5-3 


8788:66 

01 

DD 

6 E 

00 

DD 

56 

03 

F7 

8790:DD 

5E 

0 2 

DD 

7E 

04 

4F 

DD 

DF 

8798 

22 

25 

9F 

78 

32 

27 

9F 

DD 

52 

87A0 

7 E 

05 

CD 

C 8 

87 

DD 

2A 

25 

F 2 

87A8 

9F 

DD 

77 

05 

3A 

27 

9F 

47 

6 E 

87B0 

DD 

73 

02 

DD 

72 

03 

79 

DD 

31 

87B8 

77 

04 

1 1 

06 

00 

DD 

19 

78 

3F 

87C0 

FE 

0 6 

CC 

19 

BD 

10 

CO 

C9 

86 

87C8 

22 

15 

9F 

ED 

53 

17 

9F 

32 

4D 

87D0 

19 

9F 

79 

32 

IB 

9F 

21 

35 

CA 

87D8 

9F 

CD 

75 

8 F 

3 A 

IB 

9F 

4F 

12 

87E0 

ED 

5B 

17 

9F 

2A 

15 

9F 

3A 

7D 

87E8 

19 

9F 

FE 

01 

CA 

OB 

88 

79 

FC 

87F0 

FE 

28 

CA 

1 1 

0 0 

3C 

13 

32 

01 

87F8 

15 

9F 

ED 

53 

17 

9F 

CD 

75 

6 B 

8800 

BF 

ED 

SB 

17 

9F 

3A 

15 

7 F 

03 

8808 

4F 

AF 

C 9 

79 

FE 

0 0 

CA 

F5 

8 D 

8810 

87 

3D 

IB 

32 

15 

9F 

ED 

53 

9D 

8818 

17 

9F 

CD 

75 

8 F 

3A 

15 

9F 

15 

8820 

ED 

5B 

17 

9F 

4F 

3E 

01 

C9 

FD 

8828 

CD 

C4 

8 F 

21 

AO 

OF 

22 

78 

3A 

8830 

97 

22 

7A 

97 

21 

3D 

CB 

22 

CA 

8838 

6 C 

97 

3E 

07 

32 

9 F 

97 

32 

A2 

8840 

AO 

97 

3E 

3D 

32 

72 

97 

3 2 

E7 

8848 

76 

97 

AF 

32 

5F 

99 

32 

5D 

45 

8050 

97 

32 

73 

97 

32 

77 

97 

CD 

B0 

8858 

OE 

BC 

CD 

56 

92 

CD 

8 C 

BE 

46 

8860 

AF 

CD 

90 

B B 

3E 

09 

CD 

96 

59 

8868 

BB 

CD 

OD 

BD 

7C 

AD 

A3 

B2 

CO 

8070 

47 

CD 

C4 

BF 

2A 

6 C: 

9 7 

22 

AE 

8878 

74 

97 

CD 

OD 

8 D 

21 

00 

00 

93 

8080 

22 

66 

97 

11 

00 

00 

CD 

10 

15 

0888 

BD 

CD 

IB 

BB 

FE 

OD 

CA 

60 

B2 

8890 

09 

FE 

2 0 

CC 

06 

BB 

FE 

16 

60 

BB9B 

CC 

84 

BB 

FE 

02 

CC 

92 

BB 

E4 

80AO 

FE 

14 

CC 

AO 

8 B 

FE 

64 

CC 

5F 

B 8 A 8 

AF 

8 B 

FE 

65 

CC 

B 6 

8 B 

FE 

D 8 

88B0 

66 

CC 

PD 

8 B 

3 A 

9F 

97 

FE 

20 

88 B 8 

00 

ce 

21 

SA 

97 

34 

3A 

5B 

E3 

88C0 

97 

FE 

00 

CA 

FF 

8 B 

21 

SB 

AA 

88 C 8 

97 

35 

7E 

FE 

01 

CC 

CC 

8 D 

BE 

BBDO 

FE 

OA 

CC 

DO 

90 

FE 

06 

CC 

5C 

88 D 8 

DO 

90 

FE 

03 

DC 

DO 

90 

06 

03 

BBEO 

OB 

21 

47 

97 

BE 

C5 

E5 

ce 

A 6 

88 E 8 

BO 

90 

El 

Cl 

23 

10 

F5 

21 

9B 

BBFO 

52 

97 

06 

05 

BE 

C5 

E5 

CC 

AO 

88 F 8 

CO 

90 

El 

Cl 

23 

10 

F 5 

CD 

67 

8900 

OD 

BD 

7 C 

FE 

03 

04 

C4 

8 B 

F3 

8908 

2A 

6 C 

97 

22 

70 

97 

CD 

FC 

BO 

B910 

BB 

CD 

E2 

95 

3A 

9C 

97 

FE 

D3 

8918 

01 

C2 

89 

00 

3A 

73 

97 

FE 

B7 

8920 

09 

D4 

19 

BD 

AF 

32 

9C 

97 

70 

8928 

CD 

9F 

8 D 

3A 

73 

97 

FE 

09 

F5 

8930 

DC 

19 

PD 

2A 

6 C 

97 

11 

: 6 

BF 

8938 

99 

CD 

73 

80 

CD 

BA 

89 

CD 

04 

8940 

OD 

8 D 

2A 

6 C 

97 

11 

50 

00 

Fl 

8948 

19 

CD 

26 

BC 

7E 

FE 

00 

CA 

DF 

8950 

62 

89 

FE 

FC 

C2 

89 

88 

3E 

CF 

8958 

06 

01 

00 

00 

CD 

3 2 

BC 

C3 

66 

8960 

89 

88 

3E 

06 

01 

01 

10 

CD 

1D 

8968 

32 

BC 

C3 

89 

88 

CD 

OD 

BD 

4 A 

8970 

CD 

B 6 

BC 

3E 

10 

CD 

5A 

BB 

70 

8978 

C9 

CD 

VF 

8 D 

C3 

8 B 

89 

ED 

87 

8980 

5B 

bC 

97 

21 

35 

9F 

06 

09 

6 B 

8988 

CD 

A 8 

3D 

21 

35 

9F 

11 

16 

2F 

8990 

99 

01 

12 

00 

ED 

BO 

2 A 

74 

00 

3998 

97 

i C 

6 C 

97 

3 A 

76 

77 


56 

89A0 

72 

97 

3A 

77 

97 

32 

73 

97 

Bb 


53 









APPMAN 


89A8J AF 32 5C 99 3E 06 CD 04 j IC 
89B0»8C 21 1E 00 22 59 97 C3iD9 
89B8:86 90 21 16 99 06 12 7EiC2 
89C0iFE C 8 C 8 FE 00 CA CB 89:F3 
89C8sC3 CF 89 23 10 Fl C9 06:5F 
89DG j OA 2A 6 C 97 C5 7E FE FF s DO 
89D8iCA E2 89 CD 26 BC Cl 10il6 
89E0» F3 C9 Cl 2B 7E FE FF CAi56 
89E8» E3 89 23 E5 CD 26 BC ES* 79 
89F0:23 06 05 CD 26 BC 10 FB:61 
89F8 j 7E 32 52 BF 22 50 BF 01 1 44 
8A00i 21 35 9F CD 75 8 F DD EliOE 
8A08 j DD 36 00 00 DD 36 01 00iB9 
8 A10 1 DD 36 02 00 DD 36 03 00iC5 
8A18: 21 16 99 06 12 AF 77 23* D3 
8A20:10 FB 2A 59 97 11 OA OOiEA 
8A20I19 22 59 97 CD C4 8 B CD*C 6 
8A30: EO 90 3A 52 BF FE 89 CAsC 6 
8A38i70 8 A FE 3C CA AO 8 A FEjE8 
8A40*00 CA Cl 8 A FE OC CA D5j88 
8A48j 8 A FE 9C CA EO 8 A FE B3i DB 
8A50:CA 64 8 B FE E3 CA FF 8A»C7 
8A58jFE B5 CA EE 8 A FE 02 CA* Al 
8A60» 58 8 B C9 CB B9 CB B1 CB 16 I 
BA68iA9 CB Al CB 99 CB 91 C9i90 
8A70:ED 5F 4F FE 64 DA 80 8 A»DB 
8A78iFE C 8 D2 80 8 A C3 8 E 8A»7F 
8A8013A AO 97 FE OC DO CD 63:85 
8 A 88 j 8 A 81 32 AO 97 C9 3A A0*29 
8A90i97 CD 63 8 A 99 32 AO 97i6D 
8A98:FE OD D 8 AF 32 AO 97 C9iE6 
8AA0.-ED 5F 4F FE 64 DA BO 8Ai3B 
8 AA 8 j FE C 8 DA BO 8 A C3 Cl 8 Ai 1A 
8AB0i3A 9F 97 FE OF DO CD 63* B7 
BAB 8 : 8 A 81 3C 32 9F 97 C3 8B:3F 
8AC0ï 90 CD 63 8 A 3A 9F 97 99»9D 
8 AC 8 j FE FF Dû FE 01 D 8 3C 32:64 
8AD0:9F 97 C3 8 B 90 2A 66 97:95 
8 AD 8 »11 64 00 19 22 66 97 C9:D8 
8AE0:ED 5B 59 97 21 OF 00 19:EB 
8 AE 8 :22 59 97 C3 C4 8 B ED 5B:DE 
8AF0:59 97 21 OA 00 19 22 59:29 
8 AF 8 :97 22 59 97 C3 C4 BB 3Ai 77 
8B00:5E 99 FE 00 C 8 ED 5F FE:92 
8808:01 28 24 FE 02 28 20 FE * 26 
8B10:04 2B IC FE 08 28 18 FE:27 
8818:10 28 14 FE 20 28 10 FE> 43 
8525:40 2B OC FE 41 CA 2F 0B:E2 
8B28:FE 43 CA 2F 8 B 18 D 6 4F:B5 
8B3Û:3A 5E 99 47 A9 B 8 DO 32:96 
8B38:5E 99 AF 2A 2A 99 77 2A:F7 
8B40:30 99 77 2A 36 99 77 2A:A5 
8B48:3C 99 77 2A 42 99 77 2A:C5 
8B50:4A 99 77 2A 52 99 77 C9:8A 
8B58:CD 8 B 90 3A AO 97 3C 3C:B4 
8B60:32 AO 97 C9 3A AO 97 FEiBC 
8 B 68 :00 C 8 3D FE 00 C 8 3D FE:F9 
8B70:00 C 8 3D FE 00 C 8 32 AO: 90 
8B78:97 3A 9F 97 3C 3C 32 9Fî53 
8B80:97 C3 8 B 90 2A 6 C 97 22iCF 
8688:00 A 8 3A 9F 97 3C 32 9F:38 
8890:97 C9 2A 6 C 97 22 02 A0.*74 
8B98:3A AO 97 3C 32 AO 97 C9:02 
8BA0:2A 6 C 97 22 04 AB 3A 59:B9 
8 BA 8 : 97 C 6 OA 32 59 97 C9 2A * AF 
8BB0: 6 C 97 22 06 A 8 C9 2A 6 C: 6 D 
8 BB 8 :97 22 08 A 8 C9 2A 6 C 97:A2 
8BC0:22 OA AB C9 3E 01 32 5C:B5 
8 BC 8 :97 3A 59 97 D 6 05 32 59»7A 
8BD0:97 FE 00 C2 DB BB CC Bl:95 
8 BD 8 :99 3E 14 21 01 06 22 9D»25 
8 BE0: 97 CD B9 8 E 3A 59 97 32:72 
8 BE 8 : 6 A 97 21 35 97 CD AA BC:94 
8BF0:D2 EA 8 B 21 00 00 1 1 00* F4 
BBF 8 :00 C3 10 BD CD 24 BB FE:BD 
BCOOilO CA 03 8 E 2A 6 C 97 E5:Û9 
8C08:CD 30 8 C 22 6 C 97 Dl CDjEO 
BC10:1B 8 C FE 00 C 8 3E 01 32*7A 
54 


8C18:9C 97 C9 7C AA 7C F2 26:5A 

8C20* 8 C 87 9F D 8 3C C9 BA C2iB7 

8C28*22 8 C 7D 93 C2 22 8 C C9iAB 

8C30:E6 OF 17 5F 16 00 DD 21 s 3B 

8C38:7C 97 DD 19 DD 5E 00 DD:ES 

8C40:56 01 D5 DD El DD E9 ES:61 

8C48:CD 26 BC 11 50 00 19 CDiCA 

BC50:26 BC 7E FE FC CA 5F 8 C*EB 

8C5B: 23 7E FE FC C2 61 8 C EliOF 

8C60:C9 El 3A 73 97 FE 5E D2iOB 

8 C 68 :00 92 3C 32 73 97 1 1 00:0F 

BC70:10 19 DO 11 50 CO 19 C9:FB 

8C78:E5 CD 29 BC CD 29 BC 7E:CB 

8C80:FE FC CA BC BC 23 7E FE:87 

8C08* FC C2 8 E 8 C El C9 El 3A*B1 

8C90i73 97 FE 00 CB FE FF CB : B1 

8C98*3D 32 73 97 1 1 00 FO 19*B7 

6CA0t 7C FE CO DO 11 BO 3F 19:4F 

8 CA 8 * C9 E5 Dl IB IA FE FC C 8 :AA 

8CB0:EB 01 50 00 09 EB IA FE:84 

8 CB 8 :FC C 8 3A 72 97 FE 01 CA:14 

8CC0:20 92 3D 32 72 97 2B 11:B2 

8 CC 8 :EB 98 ED 53 6 E 97 C9 E5:CA 

8CD0* Dl 13 13 IA FE FC CB EB:1A 

8 CD 8 :0l 50 00 09 EB IA FE FC:BD 

BCEOiCB 3A 72 97 FE 4C DO 3C:CD 

BCE 8 : 32 72 97 23 1 1 00 99 ED* 69 

BCFOt 53 6 E 97 C9 CD A9 8 C C3:62 

8 CF 8 : 78 8 C CD A9 8 C C3 47 8C:20 
8D00: CD CF 8 C C3 78 BC CD CF:18 
8D08:8C C3 47 8 C C9 2A 6 C 97»AD 

8D10:ED 5B 6 E 97 06 09 C5 E5:A3 

8 DI 81 O 6 02 7E OF CD 51 BD CBjBO 

8D20:5F C2 30 BD IA E 6 AA CAiFF 

8D28:30 8 D 4F 7E E 6 55 B1 77* A2 
8D30* 7£ CD 51 BD CB 5F C2 45* 17 
8D38:8D IA E 6 55 CA 45 8 D 4F:92 
8D40: 7E E 6 AA B1 77 23 13 10:49 
BD48:D1 El CD 26 BC Cl 10 C 6 :CD 
8D50:C9 4F AF CB 29 D2 5A 8D:51 
8D58:3E 08 CB 29 CB 29 D2 63:48 
8D60:8D C 6 02 CB 29 CB 29 D2:FC 
8 D 6816 C 8 D C 6 04 CB 29 CB 29:A0 
8D70iDÛ 3C C9 06 09 C5 E5 01 1 BC 
8D78:02 00 ED BO El CD 26 BC* 34 
BD80:Cl 10 F2 06 12 21 16 99:BB 
8 D 88 :7E FE C 8 CC 9C 8 D FE 4F*9B 
8D90-.CA BB 89 FE 8 F CA BB 89:66 
8D98 * 23 10 ED 23 36 00 C9 ED*54 
8DA0:5-8 70 97 21 16 99 06 09:6E 
8 DAB : ED 43 2F 9F ED 53 31 9F* 43 
8DB0:01 02 00 ED BO EB 2A 31:23 
8 DB 8 :9F 01 00 08 09 D2 C4 80 1 19 
8DC0:01 50 CO 09 EB ED 4B 2F: B9 
8 DC 8 J 9F 10 DD C9 ED 5B 57 97:E0 
8DD0jIB IB 21 35 9F 06 09 C5:5C 
8 DD 8 : ES D5 01 08 00 ED BO EI 1 A 6 
8DEÛ:CD 26 BC EB El Cl 10 EF : A8 
8DE8:21 35 9F 11 16 99 01 12i30 
BDFO:00 ED BO 2A 6C 97 7E 4F:14 
8DF8:23 7E A9 FE 00 C2 OD 8D:29 
8EOO»C3 7F 89 3A 5B 97 FE 00*83 
8E08: CO 2A 6C 97 11 50 00 19:FD 
BEI0:CD 26 BC 7E FE FC CO 2A:AF 
BE18:6C 97 23 23 23 7E FE 00:8E 
8E201 CO 23 7E FE 4F CB FE 8F:B1 
8E28:CB 23 7E FE 4F C8 FE 8F:C1 
8E30sC8 2A 6C 97 2B 7E FE 4F*A9 
BE38:C8 FE 8F C8 2B 7E FE 4F> 09 
8E40:C8 FE 8F CB 3A 72 97 FE:2C 
8E48:03 DB FE 4A DO 3A AO 97:3A 
8E50*FE 00 CB 3D 32 AO 97 CD:17 
8E58:9F 8D 2A 6C 97 22 57 97:4F 
8E60:CD 26 BC EB 21 CB 97 E5*F0 
8E68:21 04 00 22 Bl 8D El 06:62 
8E70:08 CD A0 8D 21 02 00 22:40 
8E78:Bl 8D 2A 6C 97 II 16 99*31 
BE80:CD 73 BD CD OD 8D 3E 46*C6 


8E88:32 5B 97 C9 21 A 6 97 3E:9F 
8E90:00 46 48 F5 E5 CD 32 BC*41 
8E98:E1 FI 23 3C FE 10 C2 91:B8 
8EA0:BE 3E OB 06 OA OE OE CD:FE 
8 EA 81 32 BC 3E OA 06 OE OE OA:98 
8 EBO 1 CD 32 BC 21 10 10 C3 3E:3B 
8 EB 8 :BC F5 2A 9D 97 CD 75 BB:52 
8EC0:F1 FE OA DA 2D 8 F FE 64*3F 
8 E CO : OA F2 8 E OE 00 D 6 64 0C:04 
8ED0:FE 64 D2 CD BE F5 79 F5:50 
8 ED 8 :2A 9D 97 CD 75 BB FI CD:7F 
BEEO:46 8 F Fl FE OA D2 F2 8 E 18 E 
8 EEB:F5 3E 30 CD 5A BB Fl C3:6F 
0EFO 1 46 8 F OE 00 D 6 OA OC FE* 4B 
QEF 8 :OA 02 F4 8 E F5 79 F5 2A:71 
8F00:9D 97 3A 5C 97 FE 00 CA:B 8 
8F08: 12 8 F 3E 20 E5 CD 5A BB:5D 
8 F10* EI 24 CD 75 BB Fl CD 46:A5 
8F18: 8 F 2A 9D 97 24 3A 5C 97*E5 
8F20:FE 00 CA 26 8 F 24 CD 75:92 
8F28* BB Fl C3 46 8 F F5 3A 5C:86 
8F30:97 FE 00 28 10 2A 9D 97iEA 
8F38:CD 75 BB 3E 20 CD 5A BB:04 
8F40:3E 20 CD 5A BB Fl C 6 30:F6 
8F48-.CD 5A BB 3A 5C 97 FE 00:E4 
8F50:CO 3E 20 C3 5A BB 47 DD: F9 
0F58:21 B7 97 DD 66 01 DD 6EiE5 
8F60:00 DD 23 DD 23 DD 7E 01:4B 
8 F 681 FE FF CC 70 8 F 10 EC C9:84 
8 F 7 0:D D 21 B7 97 C9 ED 53 29: 70 
8F78: 9F 22 2B 9F 21 04 00 22* D9 
8F80*Bl BD 2A 2B 9F 06 08 CD 1 1C 
8 F 88 :A 8 8 D 21 02 00 22 Bl 8 D:CF 
8F90:2A 29 9F ED 43 2D 9F 01 zOE 
8F98:00 08 09 D2 A2 8 F 01 50:8C 
8FA0:CO 09 ED 4B 2D 9F CD 29*F2 
0FA8:BC CD 29 BC 22 29 9F DD 16 C 
8FB0:2A 29 9F DD 36 00 FF DD:20 
0FB8:36 01 FF DD 36 02 FF DD: 6 E 
8 FCÔ* 36 03 FF C9 10 FE ED 5F 1 AA 
8 FC 81 47 10 FE ED 5F 47 C9 2A:32 
8FD0 :66 97 3A 6 A 97 47 23 22:23 
8 FD 8 :10 BF ED 43 13 BF CD 28:2D 
8FE0:90 CD OF 90 ED 4B 13 BF:75 
8 FE 81 78 3D 21 OA OC 22 9D 97:B9 
8FF0:CD B9 8 E 21 35 9F 11 5E*F7 
0FF8:97 01 06 00 ED BO 21 5A:3D 
9000:97 35 ED 4B 13 BF 2A 10*AO 
9000:BF 10 CB 22 66 97 C9 21:3B 
9010:OE OF CD 75 BB 06 05 21:E6 
9018:62 97 7E E5 C5 C 6 30 CD: 8 C 
9020:5A BB Ci El 2B 10 F3 C9:5E 
9028:23 22 64 97 2A 64 97 2B:4B 
9030:22 64 97 7C B5 FE 00 C8:D4 
9038:3A 5E 97 3C 32 5E 97 FE:58 
9040*OA C2 2C 90 AF 32 5E 97:2E 
9048:3A 5F 97 3C 32 5F 97 FE 16 A 
9050: OA C2 2C 90 AF 32 5F 97 1 3F 
9058*3A 60 97 3C 32 60 97 FE:7C 
9060iOA C2 2C 90 AF 32 60 97*50 
9068:3A 61 97 3C 32 61 97 FE: 8 E 
9070* OA C2 ZC 90 AF 32 61 97:61 
9078:3A 62 97 3C 32 62 97 FE: AO 
9080:OA C2 2C 90 AF 32 62 97:72 
9088:C3 2C 90 3A 9F 97 3D FE:42 
9090:FF CB 32 9F 97 F5 21 01:66 
9098:01 CD 75 BB 3E E4 CD 5A:6F 
90A0:BB 3E 00 32 5C 97 Fl 21:60 
90A8:01 02 22 9D 97 C3 B9 8E:9B 
90B0:21 70 00 22 41 97 21 3E* 32 
90BB:97 CD AA BC D2 BO 90 C9:ED 
90C0; 21 69 00 22 41 97 21 3E: 33 
90C8:97 CD AA BC D2 CO 90 C9:0D 
90D0:21 50 00 22 41 97 21 3E*2A 
9008:97 CD AA BC D2 DO 90 C9:2D 
90E0:06 03 21 64 00 22 26 97* DD 
90E8:21 FA 00 22 2F 97 C5 21:61 
90F0:23 97 CD AA BC 21 2C 97*51 


APPMAN 


90F8 

CD 

AA 

BC 

Cl 

D2 

EE 

90 

2A:F6 

9368 :A9 

C3 

87 

93 

ED 

5F 

C3 

87:17 

95D8 

99 

11 

55 

99 

01 

04 

00 

ED 

F7 

9100 

26 

97 

11 

32 

00 

19 

22 

26: F2 

9370:93 

3A 

A2 

97 

4F 

3A 

A3 

97: CC 

95E0 

88 

C9 

32 

00 

BF 

3A 

5D 

9 7 

15 

9108 

9 7 

2A 

2F 

97 

ED 

52 

22 

2F:B0 

9378:A9 

4F 

3A 

A4 

97 

A9 

4F 

ED: 5D 

95E0 

FE 

01 

C2 

F6 

95 

CD 

24 

BB 

75 

9110 

97 

10 

DB 

CD 

86 

BC 

3E 

01 iAI 

9300:5F 

99 

4F 

3A 

A5 

97 

A9 

CD: 46 

95F0 

CC 

19 

BD 

C3 

09 

96 

FE 

02 

89 

9118 

CD 

83 

BC 

3E 

02 

C3 

B3 

BC: 57 

9388:56 

8 F 

FD 

5E 

00 

FD 

56 

01 ï AF 

95F8 

CA 

06 

9 6 

3A 

00 

BF 

FE 

6 ) 

EA 

9120i 

3E 

00 

CD 

OE 

BC 

CD 

EO 

90: C3 

9390:CD 

75 

8 F 

FD 

23 

FD 

23 

C 3 s F 7 

9600. 

CC 

19 

BD 

C3 

09 

96 

CD 

19 

80 

9128 

CO 

9C 

88 

21 

02 

01 

DD 

21 : F F 

9398:E8 

92 

FD 

23 

FD 

23 

FD 

7E: 60 

9608* 

BD 

3 A 

5E 

99 

CB 

77 

C4 

B4 

46 

9130 

02 

97 

CD 

36 

85 

3A 

9F 

97:52 

93A0:00 

32 

5E 

99 

FD 

23 

FD 

7E:F7 

9610 

94 

3 A 

5E 

99 

CB 

6 F 

C4 

DA 

43 

9138 

21 

02 

06 

22 

9D 

97 

CD 

89 : CE 

93A8:00 

32 

59 

97 

FD 

23 

FD 

E5:5F 

9618. 

94 

3 A 

5E 

99 

CB 

67 

C4 

OO 

69 

9140i 

8 E 

21 

06 

03 

DD 

21 

09 

97:27 

93B0:El 

22 

78 

97 

AF 

32 

Al 

97:6E 

9620: 

95 

3A 

5E 

99 

CB 

5F 

C4 

26: 

90 

9148i 

CD 

36 

85 

3A 

AO 

97 

21 

06: F9 

9388:21 

01 

06 

22 

DC 

88 

3A 

5F : 95 

9628: 

95 

3A 

SE 

99 

CB 

57 

C4 

4C * 

B6 

9150 

OA 

22 

9D 

97 

CD 

B9 

0E 

21:76 

93C0: 99 

FE 

04 

CC 

E9 

93 

FE 

13:47 

9630: 

9 5 

3A 

5E 

99 

CB 

4F 

C4 

7E: 

E0 

9158 

OA 

05 

DD 

21 

18 

97 

CD 

36 : AB 

93C0:CC 

FO 

93 

CD 

88 

90 

3A 

5F : 28 

9638: 

95 

3A 

5E 

99 

CB 

47 

C4 

80: 

IA 

9160 

05 

21 

OA 

OC 

22 

9D 

97 

3A: 3D 

9300:99 

FE 

OF 

CC 

14 

94 

FE 

12: 8D 

9640. 

95 

C9 

2A 

5A 

99 

3A 

5C 

99. 

00 

9168 

6 A 

97 

CD 

B9 

8 E 

CD 

EC 

91:58 

9308:CC 

2F 


FE 

13 

CC 

07 

94:72 

9648: 

FE 

ce 

C2 

51 

96 

AF 

C3 

61: 

20 

9170 

21 

OE 

07 

DD 

21 

12 

97 

CD: AB 

9 3 E 0:3A 

61 

99 

FE 

01 

CB 

C3 

FF: 30 

9650: 

96 

FE 

FF 

CA 

61 

96 

FE 

00 : 

3fl 

9178i 

36 

85 

CD 

CF 

8 F 

06 

03 

C5: BD 

93E8:93 

21 

01 

12 

22 

DC 

SB 

C 9: 9 4 

9658: 

C4 

7F 

89 

3A 

5C 

99 

2A 

5A: 

6 D 

91 80 î 

CD 

EO 

90 

Cl 

10 

F9 

ED 

5F: 64 

9 3 F 0: 21 

02 

01 

22 

DC 

88 

C9 

3E : 37 

9660: 

99 

77 

3A 

5D 

99 

FE 

00 

CA: 

FE 

9188i 

CB 

BF 

32 

6 A 

97 

21 

OA 

OC: OD 

93F8:07 

01 

00 

00 

CC 

32 

BC 

3E: 82 

9668: 

82 

96 

7D 

FE 

57 

C2 

76 

96: 

86 

9 1 9ûî 

22 

9D 

97 

CD 

B9 

0 E 

CD 

EC: 44 

9400:07 

01 

OD 

OD 

C3 

32 

BC 

21:88 

9670: 

3E 

00 

32 

5D 

99 

C9 

23 

7E : 

D6 

9198 

91 

CD 

CF 

8 F 

CD 

24 

88 

FE: 8F 

9408:01 

10 

22 

DC 

ad 

C9 

21 

01:21 

9678: 

32 

5C 

99 

22 

5A 

99 

3E 

C8 

50 

9 1 AO. 

10 

C2 

9C 

91 

CD 

9 C 

BB 

3E: 92 

9410:09 

22 

DC 

89 

26 

00 

2E 

10: A2 

9680: 

77 

C9 

7D 

FE 

IC 

C2 

0E 

96: 

D3 

91 A8i 

00 

CD 

90 

88 

3E 

09 

CD 

96: FB 

9418:3E 

4F 

CD 

67 

94 

26 

09 

2E:5E 

9688: 

3E 

01 

32 

5D 

99 

C 9 

28 

7E: 

F 7 

91B0» 

B B 

3A 

9F 

97 

FE 

OF 

DA 

BE: 11 

9420: 14 

3E 

8 F 

CD 

67 

94 

26 

0 B : 8 E 

9690: 

32 

5C 

99 

3E 

CB 

77 

22 

5A: 

46 

91B8i 

91 

3E 

07 

32 

9F 

97 

DD 

21:85 

9428:2E 

16 

3E 

4 F 

C3 

67 

9 4 

26:71 

9698: 

99 

C9 

2 A 

5A 

99 

3 A 

5C 

99: 

DC 

9 ICO: 

D2 

99 

DD 

7E 

00 

FE 

4A 

C2: 21 

9430:03 

2E 

12 

3E 

BF 

CD 

67 

94:9C 

9 6 AO» 

FE 

C8 

C2 

A9 

96 

AF 

C3 

B9: 

28 

91C8: 

£8 

91 

DD 

7E 

02 

FE 

41 

C2: 33 

9438:26 

05 

2E 

14 

3E 

8 F 

CD 

67:3A 

96A8 

90 

FE 

FF 

CA 

P 9 

96 

FE 

00 : 

E8 

91 DOi 

EB 

91 

DD 

7E 

05 

FE 

46 

C2: 43 

9440:94 

26 

09 

2E 

14 

3E 

BF 

CD: 73 

96B0: 

C4 

7F 

09 

3A 

5C 

QQ 

2A 

5A 

C5 

91 D8i 

£8 

91 

DD 

7E 

08 

FE 

44 

C2:4C 

9448:67 

94 

3E 

FC 

06 

02 

26 

05:44 

96B8 : 

99 

77 

3A 

5D 

99 

FE 

00 

CA: 

56 

91E 01 

EB 

91 

DD 

7E 

OB 

FE 

49 

C2 : 5C 

9 4 5 0: 2 E 

! 4 

CD 

69 

94 

3E 

FC 

06: 30 

96C0: 

E2 

96 

7D 

FE 

57 

C2 

D4 

96: 

CC 

91EB: 

E8 

91 

C9 

C7 

3E 

04 

C9 

F5 :85 

9458:02 

26 

OA 

2E 

12 

CD 

69 

94:20 

96C8: 

7C 

FE 

CB 

C2 

D4 

96 

3E 

00 : 

OD 

91 FO: 

01 

FF 

FF 

OB 

70 

B1 

C 2 

F3: 69 

9460:21 

01 

09 

22 

DC 

BP 

C 9 

06:77 

96D0: 

32 

5D 

99 

C9 

CD 

29 

BC 

7E: 

87 

91F8: 

91 

Fl 

3D 

FE 

00 

20 

FO 

C9 : 1F 

9468:06 

C5 

E5 

54 

5D 

IC 

F5 

CD: 3B 

96D8: 

32 

5C 

99 

22 

5A 

99 

3E 

CB: 

80 

9200: 

3 A 

72 

97 

6 F 

26 

CB 

22 

6 C : CO 

9470:44 

BC 

Fl 

El 

24 

2 D 

2 D 

Cl: 15 

96E0: 

77 

C9 

7D 

FE 

IC 

C2 

F4 

96: 

99 

9208: 

97 

22 

70 

97 

AF 

32 

73 

97:45 

9478:10 

EF 

C9 

3E 

00 

26 

OF 

2E: 75 

96E8: 

7C 

FE 

FF 

C2 

F 4 

96 

3E 

01 : 

82 

9210i 

£5 

CD 

20 

91 

AF 

CD 

OE 

BC:4B 

9480:00 

16 

OF 

1E 

02 

C3 

44 

BC: IC 

96F0: 

32 

5D 

99 

C9 

CD 

26 

BC 

7E » 

A4 

9218: 

CD 

56 

92 

CD 

3F 

92 

El 

C9:A7 

9488: DD 

7E 

00 

FE 

FF 

CB 

FE 

1 A: 54 

96F0: 

32 

5C 

99 

3E 

CB 

77 

2 2 

5A: 

AE 

9220: 

01 

4B 

00 

09 

3E 

4C 

32 

72:35 

9490:DA 

98 

94 

DD 

23 

C3 

9A 

94: IB 

9700: 

99 

C9 

56 

4 9 

45 

20 

3A 

20 : 

57 

9228: 

97 

22 

6 C 

97 

22 

70 

97 

E5:84 

9498:3E 

FC 

DD 

66 

00 

DD 

6 E 

01 : F5 

9703i 

FF 

42 

4F 

41) 

42 

45 

20 

3 a ■. 

5D 

9230i 

CD 

20 

91 

AF 

CD 

OE 

PC 

CD : 53 

94A0:DD 

56 

02 

DD 

5E 

03 

CD 

44: B8 

9710: 

20 

FF 

53 

43 

4F 

52 

45 

20 : 

62 

9238: 

56 

92 

CD 

3F 

92 

El 

C9 

2A j 24 

94A8:8C 

CD 

19 

BD 

1 1 

04 

00 

DD: 8D 

9710: 

3A 

20 

FF 

42 

4F 

4E 

55 

53: 

BF 

9240i 

6 C 

97 

22 

74 

97 

3A 

72 

97:45 

94B0:19 

C3 

68 

94 

21 

2A 

9 9 

11:31 

9720: 

20 

3A 

FF 

01 

00 

00 

32 

00: 

43 

9248: 

32 

76 

97 

3 A 

73 

97 

32 

77:06 

9488:5A 

99 

0! 

04 

00 

FD 

BO 

3A: 18 

9728: 

00 

07 

05 

00 

02 

00 

00 

00 : 

CD 

9250: 

97 

AF 

32 

5B 

97 

C9 

2 A 

78: B7 

94C0:2E 

99 

32 

6 C 

96 

3A 

2F 

99:51 

9730: 

06 

00 

03 

05 

00 

01 

00 

00 : 

D6 

9258: 

97 

7E 

FE 

FF 

C2 

7B 

92 

23: EE 

94C8:32 

84 

9 p. 

CD 

42 

96 

21 

5D:C& 

9738: 

46 

00 

00 

0 7 

OA 

00 

02 

00 : 

28 

9260: 

7E 

FE 

FF 

C2 

7B 

92 

23 

7E : DD 

94D0:99 

11 

2 D 

99 

01 

04 

00 

ED: C6 

9740: 

00 

78 

00 

00 

07 

04 

00 

4 5 : 

9F 

9268: 

FE 

FF 

C2 

78 

92 

2 A 

7A 

97:01 

94D8:88 

C9 

21 

30 

99 

1 1 

5 A 

99: DB 

9748: 

44 

43 

40 

3C 

37 

32 

2D 

20 : 

AO 

9270: 

22 

70 

97 

AF 

32 

5F 

99 

3C:4B 

9 4 E 0: 01 

04 

00 

EO 

BO 

3A 

34 

99:1D 

9750: 

22 

1D 

17 

14 

11 

OD 

OA 

0 0: 

79 

9278: 

32 

5D 

97 

3A 

5F 

99 

21 

9F t 22 

94E8:32 

6 C 

96 

3A 

35 

99 

32 

Q4:6E 

9758: 

00 

1E 

00 

00 

00 

00 

00 

00 : 

OD 

9280: 

97 

34 

3C 

32 

5F 

99 

CD 

F7: 07 

9 4 F 0: 9 6 

CD 

42 

96 

21 

5D 

99 

11 : E7 

9760: 

00 

00 

00 

00 

00 

00 

00 

00 : 

F7 

9288i 

93 

DD 

2A 

78 

97 

DD 

7E 

00: 1E 

94F8:33 

99 

01 

04 

00 

ED 

B8 

C9:C8 

9768: 

00 

00 

00 

00 

00 

00 

EB 

98: 

82 

9290: 

32 

60 

99 

AF 

DD 

23 

DD 

7E:F7 

9500:21 

36 

99 

11 

5A 

99 

01 

04: 8E 

9770: 

00 

00 

3D 

00 

00 

00 

00 

00 : 

44 

9298: 

00 

32 

61 

99 

DD 

23 

79 

FE: CD 

9508:00 

ED 

0 0 

3A 

SA 

99 

32 

6 C : E5 

9778: 

00 

00 

00 

00 

OC 

8 D 

78 

8 Ci 

AC 

92 AO s 

01 

CA 

A9 

92 

3E 

FC 

C3 

A B : E 0 

9510:96 

3A 

3D 

99 

32 

04 

96 

CD: 62 

9780: 

47 

ac 

OC 

8 D 

A9 

8 C 

F 4 

SC: 

38 

92A8: 

92 

3E 

F 3 

32 

99 

94 

CD 

88 : B1 

9518:42 

96 

21 

5D 

99 

11 

39 

99: 7F 

9788: 

FA 

8 C 

A9 

8 C 

CF 

8 C 

00 

8 D: 

C2 

92B0: 

94 

DD 

23 

DD 

E5 

3E 

FC 

32:04 

9520:01 

04 

00 

ED 

B8 

C 9 

21 

3C : 85 

9790: 

06 

8 D 

CF 

8 C 

OC 

8 D 

78 

BC: 

82 

9288: 

99 

94 

3A 

2A 

99 

32 

A2 

97 : DF 

9528:99 

11 

5A 

99 

01 

04 

00 

ED:4C 

9798: 

47 

0C 

OC 

8 D 

00 

00 

00 

FA: 

95 

92C0 : 

3A 

30 

99 

32 

A3 

97 

3 A 

36:31 

9530:B0 

3 A 

40 

99 

32 

6 C 

SC 

3A: F6 

97A0» 

C8 

00 

00 

00 

00 

00 

00 

IA: 

19 

92C8i 

99 

32 

A4 

97 

3 A 

SC 

99 

32: A1 

9538:41 

99 

32 

04 

96 

CD 

4 2 

96:98 

97A8 : 

OA 

19 

1 4 

OF 

00 

OD 

10 

081 

AD 

9 2 D 01 

A5 

97 

El 

23 

7E 

23 

FE 

00:41 

9540:21 

5D 

99 

11 

3 F 

99 

01 

04: DA 

97B0 : 

OD 

IA 

0 9 

IA 

14 

00 

00 

CP: 

70 

92D8: 

CA 

E5 

92 

28 

28 

11 

2 A 

99:05 

9548:00 

ED 

88 

C9 

21 

42 

99 

11:58 

9788: 

97 

EB 

97 

08 

98 

2 B 

98 

4B» 

19 

9 2 E 01 

01 

30 

00 

ED 

80 

E5 

FD 

El : 03 

9550:5A 

99 

01 

04 

00 

ED 

BO 

3A:B4 

97C0: 

98 

6 B 

98 

88 

98 

A9 

98 

CB: 

23 

92E8 s 

FD 

7E 

00 

FE 

FF 

CA 

9A 

93: E9 

9558:46 

99 

32 

E A 

96 

3 A 

47 

99:98 

97C8: 

98 

FF 

FF 

00 

00 

00 

41 

00 : 

36 

92F0: 

3A 

Al 

97 

3C 

32 

Al 

97 

FE: 98 

9560:32 

E4 

96 

H 

4P 

99 

32 

CA: B8 

97D0: 

00 

41 

82 

00 

01 

43 

00 

00 : 

6 E 

92F8: 

02 

CA 

29 

93 

FE 

03 

CA 

2F : OC 

9568:96 

3A 

49 

99 

32 

C4 

96 

CD: 08 

97D8: 

03 

03 

00 

01 

46 

03 

02 

01 : 

C2 

9300: 

93 

FE 

04 

CA 

39 

93 

FE 

05: Cl 

9 5 7 0: 9 A 

96 

21 

5D 

99 

11 

45 

99: 3B 

97E0: 

89 

03 

02 

00 

46 

03 

00 

00 : 

4E 

9308: 

CA 

45 

93 

FE 

06 

CA 

51 

93: EF 

9578:01 

04 

00 

ED 

88 

C9 

21 

4A: EB 

97E8: 

01 

02 

00 

00 

00 

09 

00 

00 : 

88 

9310: 

FE 

07 

CA 

56 

93 

FE 

08 

CA:2B 

9580:99 

il 

5A 

99 

01 

04 

00 

ED: A4 

97F0: 

00 

06 

00 

00 

01 

OC 

00 

44: 

DE 

9318: 

61 

93 

FE 

09 

CA 

6 C 

93 

FE : 6D 

9588:80 

3A 

4E 

99 

32 

EA 

96 

3A: DA 

97F8 : 

CC 

4C 

80 

44 

CC 

4C 

88 

04: 

17 

9320: 

OA 

CA 

71 

93 

ED 

5F 

C3 

87:21 

9590:4F 

99 

32 

E4 

96 

3 A 

50 

99s DC 

9800: 

OC 

OC 

08 

44 

8 C 

CC 

88 

44: 

20 

932B: 

93 

3 A 

5A 

97 

C3 

87 

93 

ED: 43 

9598:32 

CA 

96 

3A 

51 

99 

32 

C4:D9 

9808: 

8 C 

CC 

88 

44 

CC 

CC 

00 

CC: 

28 

9330: 

5F 

4F 

3 A 

5A 

97 

A9 

C3 

87:8F 

95A0:96 

CD 

9A 

96 

21 

50 

99 

11 : FO 

9810: 

CC 

CC 

CC 

8 D 

CE 

CD 

4E 

CC: 

4E 

9338» 

93 

3A 

A2 

97 

ED 

48 

A3 

97:43 

95A8:4D 

99 

01 

04 

00 

ED 

88 

C 9:96 

9818: 

CC 

CC 

CC 

?C 

CC 

CC 

6 C 

CC: 

80 

9340: 

A8 

A9 

C3 

87 

93 

3A 

5A 

97: 2C 

9 5 B 0 ; 21 

52 

99 

11 

5A 

99 

01 

04: 5A 

9020: 

3C 

3C 

CC 

CC 

CC 

CC 

CC 

44 : 

70 

9348: 

ED 

58 

A4 

97 

AB 

92 

C3 

87 : E5 

9588:00 

ED 

80 

3A 

56 

99 

32 

EA: 2F 

9828: 

CC 

CC 

08 

00 

44 

28 

00 

14: 

60 

9350: 

93 

ED 

5F 

C3 

87 

93 

3A 

A4: 7D 

95C0:96 

3A 

57 

■v? 

32 

E4 

96 

3Ai FB 

9030: 

9C 

9C 

00 

44 

6 C 

6 C 

20 

9 C i 

EO 

9358: 

97 

4F 

3A 

A3 

97 

A9 

C3 

87:38 

95C8:58 

99 

32 

CA 

96 

3A 

59 

99*. OC 

9838: 

9C 

9C 

9C 

6 C 

6 C 

6 C 

6 C 

14» 

68 

9360:9^ 

3A 

A 5 

97 

4F 

3A 

A2 

97: BE 

95D0:32 

C4 

96 

CD 

9A 

96 

21 

5D:6C 

9840:9C 

9C 

88 

00 

6 C 

6 C 

00 

00 : 

70 


SK 





APPMAN 


9848 : 1 4 

G B 

00 

44 

CC 

CC 

00 

CC: 

24 

9AB8 

2C 

7E 

F6 

66 

E6 

EC 

7E 

36 

DE 

9D28 

4D 

41 

49 

53 

FF 

56 

4F 

55 

E8 

9850s 

CC 

CC 

cc 

CD 

4E 

CD 

4E 

CC: 4E 

9AC0 

58 

FC 

E6 

66 

7C 

6 C 

66 

46 

8 E 

9D30 

53 

20 

47 

41 

47 

4E 

45 

5A 

FC 

9858s 

cc 

CC 

cc 

9C 

CC 

CC 

6 C 

CC : CO 

9AC8 

IC 

7E 

EO 

70 

IC 

OE 

FC 

70 

EA 

9D38 

20 

32 

20 

42 

4F 

4D 

42 

45 

AC 

9860: 

00 

00 

cc 

CC 

CC 

cc 

CC 

44:38 

9AD0 

3C 

FE 

70 

30 

30 

30 

30 

10 

E4 

9D40 

53 

2E 

FF 

2A 

20 

43 

2E 

49 

61 

9868: 

cc 

cc 

BS 

44 

00 

44 

88 

88 : B8 

9AD8 

66 

66 

66 

C6 

C6 

EE 

FE 

7A 

96 

9D48 

2E 

20 

2A 

FF 

49 

4C 

20 

46 

57 

9870: 

00 

00 

44 

33 

33 

33 

33 

33: 

48 

9AE0 

62 

E2 

F6 

34 

3C 

38 

18 

10 

84 

9D50 

41 

49 

54 

20 

44 

49 

5 j 

50 

IB 

9878: 

83 

33 

33 

73 

F3 

73 

B3 

33: 

E8 

9AE8 

D6 

D6 

DA 

FE 

7E 

36 

64 

64 

82 

9D58 

41 

52 

41 

49 

54 

52 

45 

FF 

FC 

9880: 

B3 

33 

33 

33 

3 3 

33 

33 

33: 

30 

9AF0 

86 

CC 

F8 

70 

38 

7C 

CC 

86 

4 A 

9D60 

44 

45 

53 

20 

4C 

41 

53 

45 

1E 

9888: 

33 

33 

33 

46 

03 

46 

02 

03: 

4D 

9AF8 

C2 

E 6 

7C 

SB 

18 

30 

60 

CO 

56 

9D68 

52 

53 

2 E 

FF 

51 

55 

45 

4C 

OE 

9890: 

01 

01 

02 

03 

52 

03 

02 

03: 

89 

9B00 

7E 

FE 

CC 

18 

30 

60 

FE 

7C 

05 

9D70 

51 

55 

4 5 

53 

20 

49 

4 E 

46 

48 

9898: 

AO 

Al 

02 

03 

52 

03 

02 

03: 

DO 

9808 

3E 

41 

41 

00 

41 

41 

3E 

00 

23 

9D78 

4F 

52 

40 

41 

54 

49 

4F 

4E 

7E 

9 0 A (i : 

02 

03 

02 

46 

CO 

CO 

02 

42: 

49 

9810 

01 

01 

01 

00 

01 

01 

01 

00 

Bl 

9D80 

53 

20 . 

44 

45 

20 

50 

4C 

5 5 

2A 

98A3: 

CO 

CO 

02 

00 

41 

82 

00 

00 : 

85 

9818 

3E 

01 

0 1 

3E 

40 

40 

3E 

00 

EF 

9D88 

53 

FF 

4C 

45 

20 

4C 

4F 

53 

16 

9BB0: 

D2 

El 

00 

41 

F 5 

7A 

82 

D2: 

BF 

9820 

3E 

01 

01 

3E 

01 

01 

3E 

00 

79 

9D90 

41 

4E 

47 

45 

20 

31 

20 

56 

OF 

9888: 

78 

87 

El 

D2 

7& 

87 

El 

41: 

89 

9828 

41 

41 

41 

3E 

01 

01 

01 

00 

C7 

9D98 

4F 

55 

53 

20 

46 

41 

49 

54 

70 

9 B C 0 : 

B5 

7A 

82 

00 

D2 

El 

00 

00 : 

BC 

9B30 

3E 

4 0 

40 

3E 

01 

01 

3E 

00 

07 

9DA0 

20 

47 

4 1 

47 

4E 

45 

52 

20 

31 

98C8 : 

41 

82 

00 

34 

54 

54 

54 

C3 : 

36 

9838 

3E 

40 

40 

3E 

41 

41 

3E 

00 

8 F 

9DA8 

31 

35 

20 

55 

4E 

49 

54 

45 

50 

9 8 D 0 : 

C3 

C3 

CS 

C3 

E 3 

E3 

F3 

43: 

70 

9840 

3E 

41 

41 

4 0 

01 

01 

01 

00 

DE 

9DB0 

53 

20 

44 

45 

20 

5 4 

45 

4D 

4F 

98D8 : 

E3 

E3 

ES 

43 

F3 

E3 

E3 

C3: 

D8 

9848 

3E 

41 

41 

3E 

41 

41 

3E 

00 

Al 

9DB0 

50 

53 

20 

4 1 

4C 

4F 

52 

53 

99 

9 B E 0 : 

E3 

E 3 

F3 

C3 

C3 

C3 

C3 

54: 

91 

9B50 

3E 

41 

41 

3E 

01 

01 

3E 

00 

29 

9DC0 

20 

51 

55 

45 

20 

4C 

45 

20 

39 

98E8: 

54 

54 

54 

00 

6 C 

CO 

44 

90: 

7C 

9858 

SA 

9B 

C B 

97 

AO 

CO 

00 

00 

AA 

9DC8 

4C 

4F 

53 

41 

4 E 

47 

45 

20 

8 E 

9 8 F 0 : 

4C 

10 

OC 

10 

OC 

10 

OC 

50: 

78 

9B60 

EB 

97 

93 

Cl 

03 

00 

OB 

98 

77 

9DD0 

32 

20 

56 

4 F 

55 

53 

20 

20 

4C 

98F8 : 

3C 

50 

14 

FO 

00 

00 

00 

00 : 

20 

9868 

86 

: 2 

06 

00 

48 

90 

29 

C3 

20 

9DD8 

20 

20 

46 

41 

49 

54 

20 

47 

40 

9900: 

9C 

00 

88 

CO 

8 C 

60 

OC 

20 : 

95 

9870 

09 

00 

28 

9B 

IC 

C4 

OC 

00 

C3 

9DE0 

41 

47 

4E 

4 5 

52 

20 

31 

30 

6 B 

9908: 

OC 

20 

OC 

20 

3C 

AO 

28 

AO: 

9D 

9878 

AB 

? s 

BF 

C 4 

OF 

00 

6 B 

98 

EB 

9DE8 

20 

55 

4E 

49 

54 

45 

53 

20 

9D 

9910: 

00 

FO 

00 

00 

00 

00 

00 

00 : 

99 

9BB0 

B2 

C5 

12 

0 0 

0 & 

98 

55 

C6 

£2 

9DF0 

44 

45 

20 

54 

45 

4D 

50 

5 3 

BF 

9918: 

00 

00 

00 

00 

00 

00 

00 

00 : 

Bl 

9888 

15 

00 

CB 

98 

48 

C7 

18 

00 

C2 

9DF8 

2E 

FF 

4C 

45 

20 

43 

2E 

49 

2D 

9920: 

00 

00 

00 

00 

00 

00 

00 

00 : 

B9 

9B90 

44 

4 5 

53 

4 3 

52 

49 

50 

54 

09 

9E00 

2E 

20 

56 

4F 

55 

53 

20 

46 

9F 

9928: 

00 

00 

00 

00 

00 

00 

00 

00 : 

Cl 

9898 

49 

4F 

4 E 

20 

20 

44 

45 

53 

35 

9E08 

41 

49 

5 4 

20 

44 

49 

53 

50 

D4 

9930: 

00 

00 

00 

00 

00 

00 

00 

00 : 

C9 

9BA0 

20 

20 

4F 

42 

4A 

45 

54 

53 

42 

9E10 

41 

52 

41 

49 

54 

52 

45 

20 

D6 

9938: 

00 

00 

00 

00 

00 

00 

00 

00 : 

DI 

9BA8 

FF 

20 

20 

4F 

42 

4A 

45 

54 

03 

9E18 

31 

2C 

2 0 

32 

20 

4F 

55 

20 

49 

9940: 

00 

00 

00 

00 

00 

00 

00 

00 : 

D9 

9BB0 

20 

2D 

FF 

2D 

20 

4E 

4F 

4 D 

CE 

9E20 

52 

41 

52 

45 

40 

45 

4 E 

54 

IC 

9948: 

00 

00 

00 

00 

00 

00 

00 

00 : 

El 

9888 

20 

2 D 

FF 

42 

4F 

4 D 

42 

45 

04 

9E28 

20 

33 

20 

4C 

41 

53 

45 

52 

BO 

9950: 

00 

00 

00 

00 

00 

00 

00 

00 : 

E9 

9BC0 

FF 

43 

41 

44 

45 

41 

55 

FF 

FC 

9E30 

53 

20 

54 

49 

52 

45 

53 

20 

E8 

9958: 

00 

00 

00 

00 

00 

00 

00 

00 : 

Fl 

9BC8 

54 

4 5 

54 

45 

20 

31 

FF 

54 

39 

9E38 

41 

55 

20 

48 

41 

53 

4 1 

52 

FB 

9960: 

00 

00 

00 

00 

00 

00 

00 

00 : 

F9 

9BD0 

45 

54 

45 

20 

32 

FF 

4C 

4F 

35 

9E40 

44 

2E 

FF 

4C 

45 

20 

4E 

4F 

9D 

9968: 

00 

00 

00 

00 

2A 

2A 

20 

41: 

B6 

9BD8 

53 

41 

4 E 

47 

45 

20 

31 

FF 

31 

9E4B 

4D 

42 

52 

45 

20 

44 

4 5 

20 

D5 

9970: 

50 

50 

4D 

41 

4 E 

20 

2A 

2A: 

F9 

9BE0 

4C 

4F 

53 

41 

4E 

47 

45 

20 

A4 

9E50 

42 

4F 

4D 

42 

45 

20 

4 F 

55 

17 

997B : 

20 

41 

50 

50 

55 

59 

45 

52: 

57 

9BE8 

32 

FF 

5 0 

4 9 

4C 

45 

FF 

44 

21 

9E58 

20 

44 

45 

20 

56 

49 

4 5 

20 

C3 

9980: 

20 

5 3 

5 S 

52 

20 

4C 

41 

20 : 

00 

9BF0 

49 

53 

51 

55 

45 

54 

54 

45 

FF 

9E60 

45 

53 

54 

20 

5 4 

4? 

52 

45 

3E 

9988: 

42 

41 

52 

52 

45 

20 

44 

27: 

18 

9&FB 

FF 

43 

2E 

49 

2E 

FF 

2A 

20 

C3 

9E60 

20 

41 

55 

48 

41 

53 

41 

52 

2B 

9990: 

45 

53 

50 

41 

43 

45 

20 

50: 

4 A 

9C00 

42 

4F 

4D 

42 

45 

20 

2A 

FF 

4 A 

9E70 

44 

2C 

20 

43 

45 

20 

4E 

4F 

E3 

9998: 

4F 

55 

52 

20 

43 

4F 

4D 

4D: 

73 

9G08 

45 

4C 

4C 

45 

20 

50 

45 

52 

CD 

9E78 

4D 

42 

52 

45 

20 

4 5 

53 

54 

48 

99A0» 

45 

4E 

43 

45 

52 

2E 

20 

4 C i 

40 

9 C10 

4D 

45 

54 

20 

44 

45 

20 

53 

AE 

9EB0 

20 

43 

4F 

4 D 

50 

52 

49 

53 

SB 

99A8: 

45 

20 

38 

20 

41 

56 

52 

49: 

30 

9C18 

45 

FF 

52 

4 ; 

56 

49 

54 

4 1 

BF 

9E88 

20 

45 

4E 

54 

52 

45 

20 

2 D 

11 

99B0 J 

4C 

20 

20 

51 

39 

38 

38 

20 : 

CF 

9C20 

49 

4C 

4C 

45 

52 

20 

45 

4E 

E7 

9E90 

33 

20 

20 

45 

54 

20 

33 

20 

AD 

99B8 : 

41 

20 

41 

4 C 

45 

53 

2E 

2E: 

33 

9C28 

20 

42 

4F 

4 D 

42 

45 

2E 

FF 

76 

9E98 

44 

4F 

4 C 

43 

20 

55 

4E 

20 

3D 

99C0: 

2E 

2E 

20 

20 

50 

52 

4F 

47: 

2D 

9C30 

2A 

20 

43 

41 

44 

45 

41 

55 

89 

9EA0 

47 

41 

49 

4E 

20 

4F 

55 

20 

41 

99C8: 

52 

41 

40 

4D 

4 5 

20 

50 

41 : 

84 

9C38 

20 

2A 

FF 

43 

4F 

4D 

4D 

45 

8 E 

9EA8 

55 

4E 

45 

20 

50 

45 

52 

54 

89 

9 9 DO i 

52 

FF 

4A 

45 

41 

4E 

20 

46: 

3E 

9C40 

20 

53 

4F 

4E 

20 

4E 

4F 

4D 

F6 

9EB0 

45 

20 

4 4 

45 

20 

56 

49 

45 

40 

99D8 1 

52 

45 

44 

45 

52 

49 

43 

FF: 

6 E 

9C4B 

20 

4C 

27 

4? 

4E 

44 

49 

51 

EC 

9EB8 

53 

20 

20 

4F 

55 

20 

44 

4 5 

36 

9 9 E 0 : 

3E 

3E 

20 

41 

50 

50 

4D 

41: 

84 

9C50 

55 

45 

2C 

FF 

43 

27 

45 

53 

B3 

9 ECO 

20 

42 

4F 

4D 

42 

45 

53 

2 £ 

64 

99E8: 

4E 

20 

3C 

3C 

FF 

4 D 

45 

49: 

41 

9C58 

54 

20 

55 

4E 

20 

43 

41 

44 

F3 

9EC8 

FF 

43 

48 

41 

51 

55 

45 

20 

3C 

99F0: 

4C 

4C 

45 

55 

5 2 

20 

53 

43: 

C3 

9C60 

45 

41 

55 

20 

44 

45 

2 0 

31 

DI 

9ED0 

4F 

42 

4 A 

45 

54 

20 

51 

55 

A8 

99F8 : 

4F 

52 

45 

20 

3 A 

20 

FF 

41 : 

31 

9C68 

30 

30 

FF 

50 

4F 

49 

4E 

54 

ED 

9ED8 

45 

20 

56 

4F 

55 

53 

20 

50 

98 

9 AO 0 j 

50 

50 

55 

59 

45 

52 

20 

53: 

F2 

9C70 

53 

2E 

FF 

2A 

20 

54 

45 

54 

C3 

9EE0 

52 

45 

4E 

45 

5 A 

20 

56 

4 F 

C7 

9A0B: 

55 

52 

20 

45 

4E 

54 

4 5 

52: 

E7 

9C7B 

45 

53 

20 

2A 

FF 

45 

4 L 

4C 

D2 

9EE8 

55 

53 

20 

41 

4A 

4F 

55 

54 

DI 

9 A10 * 

20 

50 

4F 

55 

52 

20 

44 

45: 

89 

9CB0 

45 

53 

20 

50 

45 

52 

4D 

45 

4D 

9EF0 

45 

35 

20 

55 

4E 

49 

54 

45 

AD 

9 A18 : 

53 

20 

45 

58 

50 

4C 

49 

43: 

EA 

9C88 

54 

54 

45 

4E 

54 

20 

44 

45 

5C 

9EF8 

53 

20 

44 

45 

20 

54 

45 

4D 

98 

9A20 s 

41 

54 

49 

4F 

4E 

53 

FF 

54: 

DB 

9C90 

FF 

47 

41 

47 

4E 

45 

52 

20 

FF 

9F00 

50 

53 

2E 

FF 

4 2 

4 F 

4E 

4E 

9C 

9A28 : 

41 

42 

4 C 

45 

4 1 

55 

FF 

53: 

BE 

9C98 

44 

4 5 

53 

20 

56 

49 

45 

53 

67 

9F08 

45 

20 

43 

48 

41 

4 E 

43 

45 

AE 

9A30: 

43 

4F 

52 

45 

20 

3 A 

20 

FF: 

6 C 

9CA0 

2E 

FF 

2A 

20 

4C 

4F 

53 

41 

E2 

9F 10 

20 

21 

21 

21 

FF 

0 0 

00 

00 

31 

9A38 : 

78 

F8 

7C 

6 C 

FE 

7E 

CE 

CC: 

40 

9CA8 

4E 

47 

45 

53 

2 0 

2A 

FF 

49 

03 

9F18 

00 

00 

00 

00 

00 

00 

00 

00 

B7 

9A40: 

5C 

FE 

E 6 

7C 

7E 

E6 

FC 

78: 

6 E 

9CB0 

4C 

53 

20 

50 

45 

52 

4 D 

45 

84 

9F20 

00 

00 

00 

00 

00 

00 

00 

00 

BF 

9A48: 

5C 

FE 

E6 

CO 

CO 

C6 

FE 

78: 

DE 

9CB8 

54 

54 

45 

4 E 

54 

20 

44 

45 

8 C 

9F28 

00 

00 

00 

00 

00 

00 

00 

00 

C7 

9A50: 

5C 

7E 

F 6 

66 

66 

EE 

FC 

78: 

E8 

9CC0 

FF 

47 

41 

47 

4E 

45 

52 

20 

2F 

9F30 

00 

00 

00 

00 

00 

00 

00 

00 

CF 

9A58: 

IC 

FE 

FO 

68 

F8 

c 6 

FE 

78: 

38 

9CC8 

44 

55 

20 

54 

45 

4 D 

50 

53 

A6 

9F38 

00 

00 

00 

00 

00 

00 

00 

00 

D7 

9A60: 

IC 

FE 

F 

60 

F8 

FC 

60 

60: 

IB 

9CD0 

2E 

FF 

2A 

20 

50 

49 

4C 

45 

OD 

9F40 

00 

00 

00 

00 

00 

00 

00 

0 0 

DF 

9A68 : 

5C 

FE 

EO 

CE 

DE 

C6 

FE 

7 i 

26 

9CD8 

20 

2A 

FF 

56 

4F 

55 

53 

20 

2A 

9F48 

00 

00 

00 

00 

00 

00 

00 

00 

E7 

9A70 : 

62 

66 

66 

FE 

FE 

E6 

66 

66 : 

E6 

9CE0 

50 

45 

52 

44 

45 

5A 

20 

33 

99 

9F50 

00 

00 

00 

00 

00 

00 

00 

00 

EF 

9A78: 

1E 

7E 

78 

18 

10 

IE 

7E 

38: 

2A 

9CE8 

20 

42 

4F 

4D 

42 

45 

53 

FF 

SB 

9F58 

00 

00 

00 

00 

00 

00 

00 

00 

F7 

9A80: 

1E 

7E 

7C 

OC 

SC 

CC 

FC 

78: 

OA 

9 CFO 

4D 

41 

4? 

53 

20 

56 

4F 

55 

DO 

9F60 

00 

00 

00 

00 

00 

00 

00 

00 

FF 

9A08 : 

46 

CE 

DC 

F8 

FC 

DC 

CE 

C4: 

74 

9CF8 

53 

20 

47 

41 

47 

4E 

45 

5A 

C3 

9F68 

00 

00 

00 

00 

00 

00 

00 

00 

07 

9A90» 

20 

60 

60 

60 

60 

66 

FE 

7 i 

AA 

9D00 

20 

31 

20 

56 

49 

45 

2E 

FF 

1F 

9F70 

00 

00 

00 

0 0 

00 

00 

00 

00 

OF 

9A98 : 

CE 

C6 

6 E 

7E 

FE 

06 

D6 

C 6 i 

22 

9D08 

2A 

20 

44 

4? 

53 

51 

55 

45 

BA 

9F78 

00 

00 

00 

00 

00 

00 

00 

00 

17 

9AA0 : 

E2 

F 6 

76 

7E 

7E 

6 E 

66 

64: 

BC 

9D10 

54 

54 

45 

20 

2A 

FF 

56 

4F 

8 B 

9F0O 

00 

00 

00 

00 

00 

00 

00 

00 

1F 

9AA8 : 

2C 

7E 

F6 

66 

E6 

EE 

7C 

38: 

DO 

9D18 

55 

53 

20 

50 

45 

52 

44 

45 

ED 

9F88 

00 

00 

00 

00 

00 

00 

00 

00 

27 

9 A B 0 J 

5B 

FC 

EE 

66 

7E 

6 C 

60 

40: 

7C 

9D20 

5A 

20 

31 

20 

56 

49 

45 

20 

8 C 

9F90 

00 

00 

00 

00 

00 

00 

00 

00 

2F 


fifi. 









VERIFICATEUR V3 

POUR PCW 8256/8512 


Ce vérificateur basic ne comporte malheureusement pas 
tous les avantages de son homologue sur CPC. Cepen¬ 
dant, en attendant mieux, il nous paraissait indispen¬ 
sable de vous donner dès le départ une bonne base 
de travail. Rassurez-vous, nous tâcherons très prochai¬ 
nement de vous fournir une véritable copie de l'origi¬ 
nal, avec tout ce que cela suppose... 


Pour utiliser Vérif V3, rien de 
plus simple. Tapez le listing en 
prenant bien garde de ne pas 
commettre d'erreurs de saisie 
(il est recommandé de s’y pren¬ 
dre à deux fois avant de 
s'avouer vaincu par un syntaxe 
error...), et sauvegardez-le sur 
une disquette sûre. Vous 


n'aurez plus, dès à présent 
qu'à taper vos listings, tout en 
étant décontractés, et pour 
cause, et, TRÈS IMPORTANT, à 
les sauvegarder en ASCII. Pour 
ce faire, procédez de la façon 
suivante : 

tapez SAVE "nomprogS . bas", 
a 


10 cls$=CHRS (27) +•* E" +CHRS (27) +" H” 

20 ceuS=CHR$(27)+"R"+CHRS(0) 

30 cfS=CHR$(27> +"R"+CHRS(1) 

40 DEF FN locateS(x,y)=CHRS(27)+"Y" 
+CHRS(32+y)+CHRS<32+x) 

50 PRINT cls$ 

60 x=28:y=3:GOSUB 350:PRINT "VERIFI 
CATEUR V3 pour PCW 8256-8512" 

70 x=36:y=5:GOSUB 350:PRINT CHRÆ(16 
4);" AMSTRAD MAGAZINE" 

80 x=26:y=6:GOSUB 350:PEINT "auteur 
s: Eric MISTELET Si Georges BRIZE" 

90 VIDTH LPRINT 80 

100 x=l:y=9: GOSUB 350:INPUT "Nom d 
u programme à vérifier :";prgmS 
110 x=l:y=10: GOSUB 350:1NPUT "Sort 
ie sur (E)cran ou (I)mprimante " ; rS 
120 rS=UPPERS(rS) 

130 1F rS="I" THEN prt=l:GOTO 160 

140 IF r$<>"E" THEN 110 

150 PRINT clsS 

160 OPEN "i",1,prgmS 

170 WH ILE EOF <1)0-1 

180 LINE INPUT #l,aS 


— nomprogS désignant le nom 
du programme, et le (a), signi¬ 
fiant que le mode de sauve¬ 
garde doit être impérativement 
ASCII. Cette opération réalisée, 
lancez le vérificateur par RUN, 
suivi de l'appellation sous 
laquelle vous l'aurez sauve¬ 
gardé. Aussitôt, le programme 
vous demandera de lui fournir 
le nom du programme à véri¬ 
fier ; exemple : nomprogS,bas 
(n’oubliez pas le "bas”, sans 
lequel le vérificateur ne pour¬ 
rait trouver sa source), 
indiquez-lui ensuite si vous 
désirez obtenir un listing écran 
ou imprimante, et le tour est 
joué. 

190 n=0:v=0 

200 FOR 1=1 TO LEN(aS) 

210 n=n+ASC(UPPERS(MIDS(ai,i,1))) 
220 NEXT 

230 FOR 1=1 TO LEN(aS) 

240 c$=MIDS(a$,1,1):IF prt=l THEN L 
PRINT ci;:ELSE PRINT c$; 

250 d=l/35: IF d=INT(d> THEN IF d=l 
THEN GOSUB 300:ELSE GOSUB 330 
260 NEXT 

270 IF v=0 THEN GOSUB 300:ELSE IF i 
>36 THEN GOSUB 330 
280 WEND 
290 END 

300 IF prt THEN LPRINT TAB(37);ceu3 
+CHRS(91);cfS;n;ceuS+CHRS(93); :LPRI 
NT cf$ :ELSE PRINT TAB(37);CHRS(162) 

;n;CHRS(166) 

310 v=1 
320 RETURN 

330 IF prt THEN LPRINT:-ELSE PRINT 
340 RETURN 

350 PRINT FN locateS(x,y);:RETURN 


MISSION 

DETECTOR 

(PCW) 


D ans un but hégé¬ 
monique qui n'é¬ 
chappe à person¬ 
ne, de redouta¬ 
bles impérialistes 
galactiques viennent d'installer 
dans un proche secteur, six 
bases spatiales d'une puis¬ 
sance redoutable. Nantis d'une 
technologie sophistiquée ren¬ 
dant vaine toute détection, ces 
sinistres postes avancés doi¬ 
vent néanmoins être repérés 
puis anéantis au plus vite. Com¬ 
ment ? Par la ruse et la perspi¬ 
cacité qui vous est coutu¬ 
mière... 

Ce programme nécessite tout 
d'abord deux listings à sauver 
sous les noms suivants : 

DETECTOR.BAS : lancement 
du programme et règle du jeu 


DETECTO.BAS : lancement 
du transfert de table de carac¬ 
tères et programme principal 

Puis deux chargeurs à lancer et 
à supprimer après emploi 

Chargeur 1 : permet d'obtenir 
le programme de transfert de 
table de caractères DCODE. 
TXT 

Chargeur 2 : permet d’obtenir 
la nouvelle table de caractères 

DJEU.CAR 

Donc, avant le lancement du 
programme par RUN « DE¬ 
TECTOR », vérifier sur votre 
disquette l’existence des 
fichiers : DETECTOR.BAS. 
DETECTO.BAS, DCODE.TXT. 
DJEU.CAR. Dans ce cas, 
bonne détection !.. 

Michel FERNANDEZ 



10 OPTION RUN £ 
20 * ***** MISSION DETECTOR ♦***» t 
30 ’ * auteur FERNANDEZ Michel * C 
40 ' *<C) 1986 FERNANDEZ Michel * I 
50 xS=CHRS<27>:clsS=xS+"E"+xS+"H": 1 C 
nvS=xS+"p" : normS=xS+"q” : PRINT xS; "f 

60 DEF FNfeS <11, co, ni, ne)=xS+"X"+CH t 
RS<32+11)+CHRS <32+co> +CHRS<31+nl)+C 


HRS(31+nc) 

70 DEF FNcuS <x,y)=xS+"Y"+CHRS <32+x> I 
+CHRS(32+y) 


80 1 -PRESENTATION- [ 

90 AS="Michel FERNANDEZ":BS="LA REV [ 
UE AM MAG":PRINT FNfeS<0,0,32,90); 
clsS;FNfeS(0,25,6,50); 

100 FOR 1=1 TO 16:CS=MIDS(AS,I,1) C 
110 PRINT FNcuS(2,1);CS ;CHRS(7); : FO t 
R t=l TO 100 :NEXT 

120 NEXT t 

130 PRINT FNcuS(2,20);"ET";CHRS <7) ; I 
: FOR t=l TO 100:NEXT 

140 FOR 1=1 TO 16:CS=MIDS(BS,1,1) [ 
150 PRINT FNcuS(2,i+24); CS ;CHRS(7); C 
: FOR t=l TO 100:NEXT 

160 NEXT:FOR t=l TO 300:NEXT [ 

170 PRINT FNcuS(4,16);"présentent"; I 
CHRS(7);:FOR T=1 TO 500:NEXT 
180 PRINT FNfeS<6,15,26,70);FNcuS<2 t 
6, 0); 

190 GOSUB 350:PRINT" ## ## t 

## ###### ###### ## ###### ## 
##" 

200 GOSUB 350:PRINT" #### #### t 

## ## ## ## ## ## ## ## ## 

## ##" 

210 GOSUB 350:PRINT” ## ## ## t 

## ## ## ## ## ## ## 

## ##" 

220 GOSUB 350:PRINT" ## ## [ 

## ###### ###### ## ## ## ## 

####" 

230 GOSUB 350:PRINT" ## ## l 

## ## ## ## ## ## ## 


##" 

240 GOSUB 350:PRINT" ## ## 

## ## ## ## ## ## ## ## ## 

##" 

250 GOSUB 350:PRINT" ## ## 

## ###### ###### ## ###### ## 

##" 

260 GOSUB 350:PRINT:GOSUB 350:PRINT 
270 GOSUB 350:PRINT"#### ###### 
###### ###### ###### ###### ## 

#### ######" 

280 GOSUB 350:PRINT"## ## ## 

## ## ## ## ## ## 

## ## ##" 

290 GOSUB 350:PRINT"## ## #### 

## #### ## ## ## 

## ####" 


879 ] 
1865 ] 
2019 1 
1882 ] 
4157 ] 


4579 1 


2624 ] 


1864 ] 
5412 ] 


1821 I 
3128 1 

498 1 
3273 1 

1826 ] 
3277 ] 

1768 1 
3965 ] 

2244 ) 

3223 ) 


3215 ] 


3198 1 


3217 ] 


3188 ] 


3201 1 


3220 1 


2288 ] 
3398 1 


[ 3333 ] 


[ 3276 1 





MISSION DETECTOR 


300 GOSUB 350:PRINT"## ## ## C 3326 J 

## ## ## ## ## ## 

## ## ##” 

310 GOSUB 350:PRINT'#### ###### t 3363 3 
## ###### ###### ## ## 

#### ## ##" 

320 FOR 1=1 TO 5:GOSUB 350:PRINT:NE [ 2365 3 
XT 

330 FOR T=1 TO 3000:NEXT:PRINT CHRS C 2377 ] 
(7) ; 

340 PRINT FNfeS(0,0,32,90); : GOTO 37 t 2066 3 


0 

350 PRINT CHRS<7>; :RETURN [ 1603 3 

360 ’ REGLE DU JEU- C 1531 3 


370 PRINT FNcuS(32,0);TAB(36);inv$; [ 4238 3 

"REGLE DU JEU ";normS: P 

RINT 

380 PRINT"Une flotte ennemie compos C 6914 3 
ée de six bases spatiales se cache 
dans votre secteur galactique” 

390 PRINT"Ces bases équipées d'écra [ 12242 3 
ns protecteurs REPULSIFS et anti ra 
dar ne peuvent être détruites que p 
ar une attaque simultanée des six é 
lèments de la flotte d'invasion.” 

400 PRINT"Il importe donc de connai [ 4408 3 
tre leurs positions exactes.” 

410 PRINT:PRINT” C'EST LE BUT D E 3681 3 

E VOTRE MISSION” : PRINT 

420 PRINT’Le radar étant inefficace C 10951 3 
la seule façon de détecter les pos 
itlons ennemies est de se servi 

r de leur écran répulsif pour devin 
er leurs positions.” 

430 PRINT'En effet un missile lancé C 12028 3 
dans leur direction sera dévié de 
90 degrés si celui-ci passe àproxi 


mité de la base. Par contre il ser 
a détruit dans le cas d'un coup au 
but. " 

440 PRINT:PRINT"L'étude des trajets E 
supposés de vos missiles permet de 
deviner les positions de l’ennemi. 

450 PRINT"Attention : un missile peu t 
t être dévié par une des bases avan 
t d'ètre détruit par une autre" 

460 PRINT:PRINT" A VOUS D'ETRE [ 

PERSPICACE !" 

470 PRINT:PRINT'Chaque départ de mi E 
ssile est repéré par une lettre maj 
uscule, sa sortie par une minuscule 

480 PRINT”—Un missile détruit est E 
signalé par ’#'.":PRINT"—Un missil 
e peut être dévié indéfiniment et n 
e pas ressortir il est repéré par u 
n carré.” 

490 PRINT:PRINT'Chaque tir vous coù E 
te 3 points. Un tir au but ne vous 
coûte qu'un point." 

500 PRINT:PRlNT'Pour vous aider pla C 
cez sur la grille les positions sup 
posées de 1'ennemi . " 

510 PRINT’Si vous pensez avoir déco E 
uvert les six bases spatiales, vous 
pouvez demander un contrôle. - pos 
itions inexactes => -15 points.” 

520 PRINT ; PRINT TAB< 15) ; " ATTENT ION C 
vous ne disposez que de 30 missiles 
. BONNE CHANCE !” 

530 PRINT:PRINT TAB<24>;”PATIENTEZ E 
CHARGEMENT EN COURS....»; 

540 RUN"detecto.bas” l 


10 OPTION RUN E 

20 ' ***** MISSION DETECTOR ***** C 
30 ' *<C) FERNANDEZ michel 1986* E 
40 MEMORY &HF605 £ 

50 code=HIMEM-400:ad.jeu=code-256*8 E 
60 MEMORY ad.Jeu-1 E 

70 échangé.jeu=code+3 l 

80 OPEN "i",1, "dcode.txt” C 

90 i=code:WHILE NOT <E0F<1)): INPUT C 
#1,octet:POKE i,octet:i = i + l: VEND:CL 
OSE #1 

100 carad=l I 

110 carech=carad+9:POKE carech+1,IN E 
T(ad.J eu/256):POKE carech,ad.J eu-25 
6*PEEK(carech+1) 

120 OPEN ”i”,1,"djeu.car”:i=-l E 

130 FOR t=l TO 128:1NPUT #l,bS:FOR E 
J = 1 TO 31 STEP 2: i = i + l: mS=MIDS<bS,J 
,2):POKE ad.Jeu+i,VAL<"&h"+mS>:NEXT 
J,t:i=i+l:POKE ad.Jeu+i,195 
140 CLOSE 1 L 

150 CALL échangé.Jeu E 

160 DEFINT n-z:xS=CHRS<27>:pion0S=C C 
HRS<160)+CHRS <161):pionlS=CHRS<162) 
+CHRS <163):curson$=xS+”e" : cursoff$= 
xS+"f" 

170 DIM lignS <14),TP <11,11>,T <11,11 E 


>,T1<5,10),T2<5,10),T3(5,10),T4<5,1 
0) 

180 zzS=CHRS <160)+CHRS <161)+CHRS <16 t 


879 3 
1865 3 
1881 3 
972 3 
2147 3 
1140 3 
1338 3 
1473 3 
4882 1 


658 3 
5384 3 


1705 1 
7928 3 


636 3 
1263 3 
6560 3 


3742 3 


11069 3 


0>+CHRS <161>+CHRS <160)+CHRS(161)+CH 
RS <160)+CHRS <161)+CHRS <160)+CHRS<16 
1)+CHRS <160 > +CHRS(161)+CHRS<160)+CH 
RS <161)+CHRS <160)+CHRS <161)+CHRS <16 
0)+CHRS<161)+CHRS<160)+CHRS <161) 

190 zzlS=CHRS <174):zz2S=CHRS <176) E 
200 lignS<1>=" "+STRINGS<20,185)+ E 

210 lignS <2>=” ”+CHRS <187)+CHRS <188 E 
)+CHRS<177)+CHRS <173>+zz2S+CHRS <172 
)+zz2S+CHRS <171)+zz2S +CHRS<170)+zz2 
S+CHRS <169)+zz2S+CHRS <168 > +zz2S+CHR 
S <167)+zz2S+CHRS <166 > +zz2S+CHRS <165 
)+zz2S+CHRS <164 > +CHRS<189)+CHRS<190 
> +" " 

220 lignS <3> =CHRS <183)+CHRS <160)+CH E 
RS <164)+zzS+CHRS <176)+CHRS <173)+CHR 
S ( 184):lignS <4> =CHRS <183> +CHRS <160) 
+CHRS <165)+ZZS+CHRS <175)+CHRS<172) + 
CHRS <184) 

230 lignS <5)=CHRS <183)+CHRS <160)+CH 
RS <166)+ZZS+CHRS <175)+CHRS <171> +CHR 
S<184): 1ignS(6)=CHRS <183)+CHRS(160) 
+CHRS<167)+zz$+CHRS <175)+CHRS<170) + 
CHRS<184) 

240 lignS <7)=CHRS <183)+CHRS<léO)+CH 
RS <168)+ZZS+CHRS <175)+CHRS<169)+CHR 
S<184): 1ignS < 8)=CHRS <183 > +CHRS <160) 
+CHRS <169)+zzS+CHRS <175>+CHRS <168) + 
CHRS(184) 


7520 3 

7063 3 

3003 î 
7458 3 

10358 : 

6095 3 

6201 3 

9348 3 

5666 3 

3933 3 
1278 3 


1887 3 
1973 1 

11799 3 

8160 3 

8164 3 

8187 3 


59 




MISSION DETECTOR 


250 lign» <9 > =CHR» (163 > +CHR*(160 > +CH 
R$ <170 > +zz$+CHR*<175)+CHR* <167)+CHR 
t<1Ô4>:lign*(10)=CHR*(183>+CHR*(160 

> +CHR®(171)+zz*+CHR*(175 > +CHR®(166) 
+CHR®(184) 

260 1ign*(11)=CHR*(183)+CHR*(160)+C 
HR*(172)+zz*+CHRS(175 > +CHR®(165 > +CH 
R*(184): lign*(12)=CHR®(183 > +CHR»(17 
4)+CHR*(173)+zz*+CHR®(175)+CHR®(164 
)+CHRS (184) 

270 LIGN*(13)=" "+CHR*(191)+CHR®(19 

2) +zz1®+CHR*(164)+zz1S+CHRS(165)+zz 
1*+CHR*(166)+zzl$+CHR*(167)+zzl*+CH 
R* ( 168)+zzl*+CHR®(169)+zzl»+CHR®(17 
0)+zzl»+CHR»(171)+zzl»+CHR»(172)+CH 
R*(175)+CHRS(173)+CHR*(194)+CHR®(19 

3) 

280 lign*(14)=” "+STRING*(20,186) 
290 cls*=x»+"E”+xS+"H" : inv*=x*+"p" : 
norm*=x*+"q" : PRINT cursoffS; 

300 DEF FNcu*(11,co)=x*+"Y"+CHR®(32 
+11)+CHR®(32+co) 

310 DEF FNfe®(li,co,ni,nc)=x»+"X"+C 
HR*(32+11)+CHR*(32+co)+CHR*(31+nl> + 
CHR*(31+nc) 

320 zz3*=CHR*(134)+STRIRG*(41,138)+ 
CHR*(142)+STRING®(36,138)+CHRS(140) 

:zz4*=CHR»(133)+STRING*(41,32)+CHR* 
(133)+STRING®(36,32)+CHR*(133):zz5* 
=CHR*(131)+STRIRG*(41,138)+CHR*(139 
)+STRING*(36,138)+CHR*(137) 

330 PRINT FNfe*(31,24,1,60);cls»;"P 
RESSEZ UNE TOUCHE 
";CHR*(7); :GOSUB 450 
340 VC=0:ZZ=64:NT=0:SC=100:AB=0:GOT 
O 500 

350 ’ ***** test clavier ***** 

360 PRINT CHR*(7); 

370 VH ILE INKEY*<> ,M * : VEND 

380 q*=INKEY*:rzz=RND:IF q*=CHR*(13 

> THEN RETURN 

390 IF q»="" THEN 380 
400 IF q®="&" THEN q»="l"BLSE IF q* 
=”é"THEN q*="2"ELSE IF q*="'"THBN q 
*="4"ELSE IF q*="("THEN q*="5"ELSE 
IF q*="§"THEN q*="6"ELSB IF q*="è"T 
HEN q*="7"ELSE IF q*=”•"THEN q*="8" 
ELSE IF q*="ç"THEN q*="9"ELSE IF q» 
="à"THEN q*=”0" 

410 IF q*=CHR*(34)THEN q*="3"ELSE I 
F q*="o"OR q*="0"THEN q*="0" 

420 q*=UPPER*(q*): IF q*<"0" OR q*>" 
Z" THEN 360 

430 q=ASC(q*)-48:RETURN 
440 PRINT CHR*(7); 

450 VHILE INKEY*<>"": VEND 

460 q»=INKEY*:rzz=RND:IF q*=CHR*(13 

)THEN RETURN 

470 IF q*="" THEN 460 

480 q*=UPPER*(q*) : RETURN 

490 * ******** cadre ********* 

500 PRINT FNfe*(0,0,32,90);cls*;FNc 
u*(1,0);zz3*:FOR 1=1 TO 25:PRINT zz 
4*: NEXT:PRINT zz5* 

510 PRINT FNfe*(6,84,24,1);cls*;"FE 
RNANDEZ MICHEL":PRINT FNfe*(6, 88,2 
4,1)jcls*;" AM MAG 1986" 

520 ’ ***** choix du jeu ***** 

530 GOSUB 590:PRINT FNfe*(0,0,32,90 
);FNfe*(3,1,24,41) ; cls*; 

540 PRINT" ”;inv*;CHR*(134); STRIN 
G*(33,138);CHR*(140);norm*:PRINT" 

60 


[ 8213 ] 


C 8262 3 


C 11690 ] 


t 1859 ] 

( 3776 ] 

t 2904 ] 

t 4625 ] 

C 11444 ] 


[ 4970 ] 


[ 2443 ] 

C 1609 ] 

C 1066 ] 

[ 1565 ] 

C 3090 ] 

t 1131 I 
( 12983 ! 


t 3583 ] 

C 2598 ] 

[ 1429 ] 
[ 1065 3 
[ 1564 3 
C 3057 3 

[ 1129 3 
C 1534 3 
[ 1389 3 
C 5434 3 


C 5626 3 


[ 1562 3 
C 3361 3 

t 11251 3 


";inv*;CHR*(133);" MISSION 
DETECTOR ";CHR®(133) ; norm*: 
PRINT" ";inv*;CHR*(T31); STRING*(3 

3.138) ;CHR*(137) ; norm* 

550 PRINT:PRINT:PRINT:PRINT" [ 

CHOIX DU JB U": PRINT: PRIN 
T:PRINT:PRINT" 1 -> PLACEMBNT PAR 
ORDINATEUR":PRINT: PRINT" 2 -> PL 
ACEMBNT PAR AUTRE JOUEUR":PRINT: PRI 
NT:PRINT:PRINT TAB(14);"votre choix 
?" 

560 GOSUB 350:IF q<l OR q>2 THBN 56 [ 
0 

570 ON q GOTO 740,2810 [ 

580 • ******* grille ********* [ 

590 PRINT FNfe*(8,48,16,27);cls*:FO t 
R i=l TO 14:PRINT lign*(i):NEXT:RBT 
URN 

600 ' ** cadre inscriptions ** t 

610 PRINT TAB(12);CHR*(134);STRING* C 
(17,138);CHR*(140):PRINT TAB(12);CH 
R* (133);" SCORE 99 ";CHR»(13 

3):PRINT TAB(12) ; CHR*(131) ; STRING*( 

17.138) ;CHR*(137) 

620 PRINT TAB(12);CHR*(150);STRING* C 
(17,154);CHR*(156):PRINT TAB(12);CH 
R* (149);" MISSILES ";CHR*(14 
9):PRINT TAB(12) ; CHR*(149);" tirés 
détruits ";CHR*(149):PRINT TAB(12) 

;CHR*(149);" 0 0 ";CHR* 

(149) 

630 PRINT TAB(4);CHR*(150);STRING*( [ 
7,154);CHR*(155); STRING*(8,154>;CHR 
*(158) ; STRING®(8,154);CHR*(155); STR 
ING*(7,154);CHR*(156) 

640 PRINT TAB(4);CHR®(149);” T = ti C 
r "; CHR* (149) ,-STRING* (16,32) 

;CHR*(149):PRINT TAB(4);CHR*(149);" 

P = placement ";CHR»(149);" A C 
T I O N ";CHR*(149) 

650 PRINT TAB(4);CHR®(149);" E = ef [ 
facement ";CHR*(149); STRING*(16,32) 

;CHR*(149):PRINT TAB(4);CHR*(149);" 

C = contrôle ";CHR»(149); STRING* 
(16, 32);CHR»(149) 

660 PRINT T AB(4);CHR»(149);" A = ab I 
andon ";CHR*(149); STRING*(16,32) 

;CHR*(149):PRINT TAB(4>;CHR*(147); S 
TRING»(16,154)[CHR*(155); STRING*(16 
,154);CHR®(153) 

670 RETURN [ 

680 ' *** initialisation *** [ 

690 FOR 1=1 TO 5:FOR J=1 TO 10:tl(i C 
,J)=0:t2(i,J)=0:t3(i,J)=0:t4(i,j)=0 
:NEXT j,i 

700 FOR i=0 TO 11:FOR j=0 TO ll:tp( [ 
i,j)=0:t(i,j)=0:NEXT J,i 
710 vv=0:vc=0:zz=64:nt=0:sc=99:ab=0 I 
720 RETURN [ 

730 * **• choix ordinateur *** C 

740 PRINT:PRINT:PRINT" ELABO C 

RATION DBS POSITIONS":PRINT:PRINT:P 
RINT” patientez"; 

750 GOSUB 690:GOSUB 2750:PRINT FNfe [ 
* (7,1,20,41);cls®; :PRINT FNfe»(3.1, 
24,41); :PRINT:PRINT: PRINT:GOSUB 610 

760 REM-CHOIX OPERATION- t 

770 PRINT FNfe»(17,24,2,13);cls»; C 
780 PRINT FNfe*(21, 1,7,41) ; cls»; " [ 

Choisissez votre action (T-P-E-C-A 


13765 ] 


2118 ] 

1237 3 
1443 3 
4570 3 


1801 3 
8903 3 


12150 3 


7323 3 


8872 3 


9083 3 


8887 3 


669 3 
1698 3 
4640 3 


3508 3 

2200 3 
665 3 
1749 3 
6262 3 


6524 3 


1986 3 
1891 3 
4344 3 




MISSION DETECTOR 


790 GOSUB 440 [ 760 3 


800 

60 

IF 

QS="T"THEN 

PRINT 

clsS:GOTO 

8 C 

2276 3 

810 

70 

IF 

QS="P"THEN 

PRINT 

clsS:GOTO 

8 t 

2274 3 

820 

80 

IF 

q$=’»E"THEN 

PRINT 

clsS:GOTO 

8 C 

2265 3 

830 

90 

IF 

q$="C"THEN 

PRINT 

clsS:GOTO 

8 I 

2265 3 

840 

IF 

QS="A"THEN 

PRINT 

clsS:GOTO 

9 C 

2256 3 


00 

850 PRINT clsS: GOTO 770 I 1441 3 

860 PRINT clsS:PRINT FNfeS <17,24,2, t 4181 3 
15);FNcuS(0,0)TIR "; :GOT 
O 920 

870 PRINT clsS;FNfeS(17,24,2,15);FN C 4033 ] 
cuS <0,0);" PLACEMENT ";:GOTO2060 

880 PRINT clsS:PRINT FNfeS(17,24,2, C 4482 ] 
15);FNcuS(0,0) ; " EFFACEMENT " ; : GOT 
Q 2500 

890 PRINT clsS:PRINT FNfeS<17,24,2, C 4441 ] 


15);FNcu S < 0,0);" CONTROLB "; :GOT 
O 2300 

900 PRINT clsS:PRINT FNfeS<17,24,2, t 4352 3 
15);FNcuS<0,0);" ABANDON "; :GOT 
O 2410 

910 REM-TIR- [ 1392 3 

920 IF nt=30 THEN 2410 t 1250 3 

930 PRINT FNfeS<21,1,7,41);clsS;” C 7953 3 


entrez le numéro de la case de tir 
":PRINT:PRINT TAB (16);"<1 a 40)”: P 
RINT:PRINT TAB<19); :rrS="" 

940 GOSUB 370;IF qS=CHRS<13)THEN 96 t 2102 3 
0 

950 PRINT qS; :rrS=rrS+qS: GOTO 940 t 2034 3 
960 c-VAL <rrS> t 827 3 

970 IF C=0 THEN PRINT CHRS<7>; : GOTO t 2352 3 
770 

980 IF C<1 OR 040 THEN PRINT CHRS < C 2804 3 
7 >; ; GOTO 920 

990 PRINT FNfeS<12,15, 1,4);clsS; : NT C 3671 3 
=NT+1:PRINT USING”##";nt; 

1000 SC=SC-3:PRINT FNfeS<7,26,1,4); C 3141 3 
clsS;USING"##";sc; 

1010 1F sc<1 THEN 2410 
1020 ' - MARQUAGE DEPART MISSILES - 
1030 ZZ-ZZ+UIF zz>90 THEN zz=65 
1040 yy=zz 

1050 IF C<11 THEN 1090 

1060 IF C<21 THEN 1140 

1070 IF C<31 THEN 1190 

1080 IF G<41 THEN 1240 

1090 P=5:D=G 

1100 IF Tl<P,D) THEN 1120 
1110 Tl<P,D)=l:PRINT FNfeS<11,43,12 
,5);FNcuS<d-l,p-l);CHRS<ZZ>; : GOTO 1 
300 

1120 P=P-1: IF P<1 THEN F=1 ELSB 110 t 2077 3 
0 

1130 GOTO 1110 C 801 3 

1140 P=1;D=C-10 t 816 3 

1150 IF T2 <P,D) THEN 1170 [ 1413 3 

1160 T2(P,D)=1:PRINT FNfeS<23,51,5, t 4312 3 

22);FNcuS <p-l,d*2-l);CHRS <ZZ); : GOTO 
1400 

1170 P=P+1: IF P>5 THEN P=5 ELSE 115 I 2095 3 
0 

1180 GOTO 1160 C 779 3 

1190 P=1:D=31-C C 824 3 

1200 IF T3 <P,D) THEN 1220 C 1470 3 

1210 T3 <P,D)=1:PRINT FNfeS<11,74,11 C 4250 3 


C 1226 3 
C 2176 3 
C 2036 3 
t 648 3 
C 1199 3 
C 1197 3 
[ 1204 3 
C 1202 3 
[ 682 3 
C 1466 3 
C 4210 3 


,5 >;FNcuS(d-1,p-1>;CHRS <ZZ>; : GOTO 1 
500 

1220 P*P+1:IF P>5 THEN P=5 ELSE 120 C 
0 

1230 GOTO 1210 [ 

1240 P=5:D=41-C t 

1250 1F T4 <P,D) THEN 1270 t 

1260 T4<P,D)=l:PRINT FNfeS<4,51,5,2 [ 

2);FNcuS <p-1,d*2-l);CHRS(ZZ); : GOTO 
1600 

1270 P=P-1:IF P<1 THEN P=1 ELSE 125 C 
0 


1280 GOTO 1260 [ 

1290 ’-DEPLACEMENT DROITE-C 

1300 Y=C:X=0:AA=0 [ 

1310 AA=AA+1; IF X=ll THEN X=10 t 

1320 IF AA>50 THEN 1700 [ 

1330 IF T(X+l,Y)=1 THEN 1700 t 


1340 IF T<X+1,Y-1> = 1 AND T<X+1,Y+1> [ 
=1 THEN 1510 

1350 IF T <X+1,Y+l) = 1 THEN X=X+l:GOT C 
O 1410 

1360 IF T<X+1,Y-l) = l THEN X=X+l:GOT t 


O 1610 

1370 X=X+1:IF X>10 THEN 1930 C 

1380 GOTO 1310 C 

1390 ’-DEPLACEMENT HAUT-[ 

1400 X=C-10:Y=ll;AA=0 [ 

1410 AA=AA+1;IF Y=0 THEN Y=1 [ 

1420 IF AA>50 THEN 1700 [ 

1430 IF T(X,Y-1 > = 1 THEN 1700 t 


1440 IF T<X+1,Y-l) = l AND T<X-1,Y-1> C 
=1 THEN Y=Y-1; GOTO 1610 
1450 IF T<X~1,Y-l) = 1 THEN Y=Y-l:GOT [ 
O 1310 

1460 IF T<X+1,Y-1>=1 THEN Y«Y-l«GOT t 


O 1510 

1470 Y*Y-1:IF Y<1 THBH 1980 t 

1480 GOTO 1410 t 

1490 '-DEPLACEMENT GAUCHB-t 

1500 X=ll;Y=31-C:AA=0 t 

1510 AA=AA+1: 1F X=0 THEN X=1 l 

1520 IF AA>50 THEN 1700 t 

1530 IF T<X-1,Y)=1 THEN 1700 C 


1540 IF T<X-1,Y-1)=1 AND T<X-1,Y+1> l 
= 1 THEN X=X-1: GOTO 1310 
1550 IF T<X~1,Y+l>=1 THEN X=X-l:GOT C 
O 1410 

1560 IF TCX-1,Y-l)=l THEN X=X-l:GOT C 


O 1610 

1570 X=X“1: IF X<1 THBN 1830 [ 

1580 GOTO 1510 t 

1590 *-DEPLACEMENT BAS-t 

1600 X=41-C:Y=0:AA=0 C 

1610 AA=AA+1:1F Y=ll THEN Y=10 [ 

1620 IF AA>50 THEN 1700 [ 

1630 IF T <X,Y+l) = 1 THEN 1700 t 


1640 IF T <X+1,Y+l) = 1 AND T<X-1,Y+1) [ 
=1 THEN 1410 

1650 IF T(X—1,Y+l)=1 THEN Y=Y+1:GOT [ 
O 1310 

1660 IF T<X+1,Y+l> = 1 THEN Y=Y+l:GOT t 
O 1510 


1670 Y=Y+1:IF Y>10 THEN 1880 t 
1680 GOTO 1610 [ 
1690 1 - MARQUAGE SORTIE-DETRUIT - [ 
1700 IF AA>50 THEN YY=35 ELSE YY=42 t 
1710 IF C<11 THEN 1770 t 
1720 IF C<21 THEN 1760 [ 
1730 IF C<31 THEN 1750 [ 
1740 PRINT FNfeS<4.51,5,22);FNcuS<p [ 
-1,d*2-1); : GOTO 1780 


2087 3 

803 3 
825 3 
1417 3 
4300 3 


2089 3 

845 3 
2020 3 
997 3 
1735 1 
1265 3 
1561 3 
2610 3 

2385 3 

2390 3 

1616 1 
778 3 
1962 3 
1286 3 
1640 3 
1298 3 

1564 3 
3352 3 

2393 3 

2394 3 

1577 3 
780 3 
1996 3 
1258 3 
1639 3 

1267 3 

1565 3 
3348 3 

2391 3 

2396 3 

1569 3 
782 3 
1917 3 
1146 ] 
1740 3 

1268 3 
1564 3 
2612 3 

2391 3 

2392 3 

1626 3 
784 3 
2184 3 
2112 3 

1207 3 

1208 3 

1209 3 
3158 ] 

61 







MISSION DETECTOR 


1750 PRINT FNfeS <11,74,11,5);FNcuS C t 3116 ] 
d-l.p-1); : GOTO 1760 

1760 PRINT FNfeS <23,51,5,22);FNcuS < [ 3177 ] 
p-1,d*2-1>; : GOTO 1780 

1770 PRINT FNfeS <11,43,12,5);FNcuS C [ 2472 ] 
d-1,p-1>; 

1780 PRINT CHRS <YY); [ 1244 ] 

1790 ZZ=ZZ-1:AB=AB+1:PRINT FNfeS <12 C 3711 ] 


,24,1,4);clsS;USING”##” ; ab; 

1800 SC=SC+2:PRINT FNfeSC7,26, 1,4> ; [ 
USING”##” ; sc; 

1810 GOTO 770 C 

1820 ' - MARQUAGE DES SORTIES - C 

1830 P=5 [ 

1640 IF Tl(P,Y) THEN 1860 [ 

1850 Tl<P,Y>=1:PRINT FNfeSC11,43,12 [ 

,5);FNcuS Cy-1,p-1>; : GOTO 2030 

1860 P=P-1 : IF P<1 THEN P=1 ELSE 184 C 

0 

1870 GOTO 1850 [ 

1880 P=1 t 

1890 IF T2 CP,X) THEN 1910 [ 

1900 T2(P,X)=l:PRINT FNfeSC23,51,5, t 
22);FNcuSCp-1,x«2-l>;: GOTO 2030 
1910 P=P+1: IF P>5 THEN P=5 ELSE 189 [ 
0 

1920 GOTO 1900 C 

1930 P=1 [ 

1940 IF T3CP.Y) THEN 1960 t 

1950 T3CP,Y)=l:PRINT FNfeS<11,74,11 [ 
,5); FNcuSCy-1,p-1)GOTO 2030 
1960 P=P+1: IF P>5 THEN P=5 ELSE 194 C 
0 

1970 GOTO 1950 [ 

1980 P=5 [ 

1990 IF T4 CP,X> THEN 2010 [ 

2000 T4CP,X)=l:PRINT FNfeSC4,51,5,2 t 
2);FNcuSCp-1,x*2-l>;:GOTO 2030 
2010 P=P-1: IF P<1 THEN P=1 ELSE 199 t 
0 

2020 GOTO 2000 

2030 PRINT CHRS CZZ+32>; 

2040 GOTO 770 

2050 ' -PLACEMENT- 

2060 X1=0:Y1=0 

2070 PRINT FNfeS C21,1,7,41);clsS ; " 
ENTREZ LES COORDONNEES DE LA CAS 
B":PRINT:PRINT” première donnée 
-> ";;rrS=" M 


737 ] 
2072 ] 

430 I 
1413 ] 
3719 ] 

2099 3 

791 ] 

431 3 
1478 3 
3809 3 

2140 ] 

783 3 
427 3 
1449 3 
3725 3 

2109 3 

793 3 
436 3 
1473 3 
3722 3 

2093 3 

799 3 
1379 3 
733 3 
1796 3 
783 3 
7238 3 


2080 

GOSUB 370 

: IF qS=CHRS C13)THEN 2 

t 

2183 

3 

100 







2090 

PRINT qS; 

: rrS=rrS+qS: GOTO 2080 

E 

2124 

3 

2100 

pl = 

VALCrrS):IF pl=0 THEN 770 

t 

1921 

3 

2110 

PRINT:PRINT:PRINT” deuxième 

C 

3529 

3 

donnée 

-> ” ; : 

rrS="” 




2120 

GOSUB 370 

: IF qS=CHRS C13)THEN 2 

C 

2182 

3 

140 







2130 

PRINT qS; 

:rrS=rrS+qS:GOTO 2120 

E 

2114 

3 

2140 

p2= 

: VALCrrS): IF p2=0 THEN 770 

E 

1927 

3 

2150 

IF 

P1<1 OR Pl>40 OR P2<1 OR P2 

E 

3993 

3 

>40 THEN PRINT 

CHRS <7); : GOTO 2060 




2160 

IF 

P1<11 

THEN Y1=P1 

£ 

1390 

3 

2170 

IF 

Pl>10 

AND Pl<21 THEN X1=P1- 

E 

2096 

3 

10 







2180 

IF 

Pl>20 

AND Pl<31 THEN Yl=31- 

E 

2103 

3 

PI 







2190 

IF 

Pl>30 

AND PI<41 THEN Xl=41- 

E 

2106 

3 

PI 







2200 

IF 

P2<11 

THEN Y1=P2 

E 

1387 

3 

2210 

IF 

P2> 10 

AND P2<21 THEN X1=P2- 

E 

2094 

3 

10 







2220 

IF 

P2>20 

AND P2<31 THEN Yl=31- 

E 

2101 

3 


P2 

2230 IF P2>30 AND P2<41 THEN Xl=41- C 
P2 

2240 IF X1=0 OR Y1=0 THEN PRINT CHR [ 
S(7)j : GOTO 2060 

2250 IF TP CX1,Y1> = 10 THEN PRINT CHR I 
S C7>; : GOTO 2060 

2260 PRINT clsS;FNfeSCll,51,11,20); [ 
FNcuS Cyl-1,xl*2-2> ; pionlS; 

2270 TPCX1, Yl) = 10: VOVC+IO+T CXl, Yl) C 
2280 GOTO 770 [ 

2290 1 -CONTROLE-[ 

2300 PRINT FNf eS C21, 1,7 ,.41 ) ; CHRS C7> t 
;clsS; : IF VC=66 THEN 2350 ELSE IF V 
C<60 OR VC>66 THEN 2380 
2310 PRINT” MAUVAIS PL [ 
A C E M E N T”:PRINT:PRINT” 

DOMMAGE t”:PRINT:PRINT” 
-15 points”:FOR i=l T 
O 12:PRINT CHRS<7>; : FOR t=l TO 40:N 
EXT t,i:PRINT:PRINT” p 

ressez espace”; 

2320 SC=SC-15:PRINT FNfeS<7.26,1,4) [ 

;USING”##”;sc; :PRINT FNfeSC21,1,7,4 

1); :GOSUB 440 

2330 IF SC<1 THEN 2410 

2340 GOTO 770 

2350 PRINT CHRS C7>;FNfeS(21,1,7,41) 

B R A V O”:PRINT:P 
RINT” ENNEMI BIEN LOCALISE 

PRINT: PRINT” MISSION T 

ERMINBE”: FOR i = l TO 30:PRINT CHRSC7 
>;: NEXT:PRINT:PRINT” au 

tre partie ?” ; 

2360 GOSUB 440 

2370 IF qSO”N”THEN 340 ELSE RUN”de 
tector” 

2380 PRINT FNfeS <21,1,7,41);clsS;CH 
RS C7>;” CONTROLE I M P O 
S S I B L E":PRINT:PRINT"SIX BASES 
A LOCALISER Cni plus ni moins)" : PRI 
NT:PRINT” pressez espac 

e” ; 

2420 PRINT FNfeSCll,51,11,20); 

2430 FOR 1=1 TO 10:FOR J=1 TO 10 
2440 IF TP <J,I> = 10 THEN PRINT FNcuS 
Ci-1,J #2-2);pionOS; 

2450 IF t Cj,i> = 1 THEN PRINT FNcuSCi 
-1,J *2-2);pionlS;CHRS <7); : FOR t=l T 
O 200:NEXT t 
2460 NEXT j,i 

2470 PRINT FNfeSC21,1,7,41);FNcuSC5 
,0);" autre partie ?”; : 

GOSUB 440 

2480 IF qS< >”N” THEN 340 ELSE RUN”d 
etector” 

2490 • -EFFACEMENT- 

2500 X1=0:Y1=0 

2510 PRINT FNfeS <21,1,7,41); clsS ; ” 
ENTREZ LES COORDONNEES DE LA CAS 
E":PRINT:PRINT” première donnée 
-> "; :rrS="” 

2520 GOSUB 370:IF qS=CHRSC13)THEN 2 
540 

2530 PRINT qS;:rrS=rrS+qS:GOTO 2520 
2540 pl = VALCrrS): IF pl = 0 THEN 770 
2550 PRINT:PRINT:PRINT” deuxième 
donnée -> ”;:rrS=”” 

2560 GOSUB 370:IF qS=CHRSC13)THEN 2 
580 

2570 PRINT qS;:rrS=rrS+qS:GOTO 2560 
2580 p2=VAL CrrS): IF p2=0 THEN 770 


2104 3 

2976 3 

2981 3 

3505 3 

2049 3 
739 3 
1796 3 
5553 3 


12564 3 


4889 3 


1232 3 
736 3 
12853 3 


803 3 
2558 3 

10569 3 


1652 3 
1832 3 
3200 3 

4907 3 


778 3 
4320 3 


2592 3 

1812 3 
782 3 
7237 3 


2190 3 

2122 3 
1929 3 
3537 3 

2198 3 

2130 3 
1935 3 










MISSION DETECTOR 


2590 IF P1=0 THEN 160 E 1171 I 

2600 IF P1<1 OR Pl>40 OR P2<1 OR P2 t 3992 ] 

>40 THEN PRINT CHRS<7);:GOTO 2500 
2610 IF P1<11 THEN Y1=P1 C 1390 ] 

2620 IF Pl>10 AND Pl<21 THEN X1=P1- [ 2096 ] 

10 

2630 IF Pl>20 AND Pl<31 THEN Yl=31- [ 2135 3 
PI 

2640 IF Pl>30 AND Pl<41 THEN Xl=41- C 2170 ] 
PI 

2650 IF P2<11 THEN Y1=P2 C 1426 ] 

2660 1F P2>10 AND P2<21 THEN X1=P2- t 2103 ] 

10 

2670 IF P2>20 AND P2<31 THEN Yl=31- C 2142 I 
P2 

2660 IF P2>30 AND P2<41 THEN Xl=41- C 2113 ] 
P2 

2690 IF X1=0 OR Y1=0 THEN PRINT CHR C 2984 ] 

S <7>; : GOTO 2500 

2700 IF TP (XI,Y1>=0 THEN PRINT CHRS E 2931 ] 
<7); : GOTO 2500 

2710 PRINT clsS;FNfeS<11,51,11,20); t 3504 1 
FNcuS(y1-1,x1*2-2) ; pionOS; 

2720 TP(XI,Y1)=0 :VC=VC-C10+T(XI, Y1) [ 2083 3 

> 

2730 GOTO 770 E 739 3 

2740 REM- PLACEMENT ALEATOIRE - [ 2293 3 

2750 rr=0 t 511 3 

2760 FOR 1=1 TO 6 E 966 3 

2770 X=INT <RND<1> *10)+1:Y=INT <RND <1 C 2471 3 

)»10)+1 

2780 IF T(X,Y)=1 THEN 2770 C 1487 ] 

2790 T(X,Y)=l:NEXT:RETURN C 1653 3 

2800 ’ —PLACEM.PAR AUTRE JOUEUR- C 2160 3 

2810 PRINT:PRINT:PRINT" C 3926 3 

patientez";CHRS <7 >; ;GOSUB 690 
2820 PRINT FNfeS(7,1,20,41 ) ;clsS; : P C 4634 3 
RINT FNfeS(3,1,24.41); :PRINT:PRINT : 

PRINT 

2830 PRINT:PRINT:PRINT" PLACEME C 5210 3 

NT MANUEL DES SIX BASES":PRINT.PRIN 

2390 GOSUB 440:GOTO 770 t 1367 3 

2400 ’ -PERDU-t 1694 3 

2410 PRINT FNfeS (21, 1,7,41 ) ; clsS; " [ 10447 3 

VOTRE MISSION EST UN ECHEC": P 
RINT:PRINT" VOUS DONNEZ VOTRE 

DEMISSION":FOR 1=1 TO 20:PRINT CHR 
T:PRINT 

2840 PRINT TAB<4);CHRS(150);STRINGS E 4566 3 
(16, 154);CHRS(158); STRINGS<16,154); 

CHRS(156) 

2850 PRINT TAB<4>;CHRS (149) ;" P = p [ 4667 3 
lacement CHRS(149);" A C T I O 
N CHRS(149) 

2860 PRINT TAB(4);CHRS(149)E = e ( 9162 3 
ffacement ” ;CHRS(149); STRINGS(16, 32 
>;CHRS(149):PRINT TAB<4>;CHRS(149); 

" F = fin placera. " ;CHRS(149); STRING 
S<16,32);CHRS(149) 

2870 PRINT TAB(4);CHRS(147);STRINGS t 4569 3 
(16, 154); CHRS(155);STRINGS<16,154); 

CHRS(153) 

2880 PRINT FNfeS(15,24,1,13);FNcuS( [ 2556 3 
0,0);clsS; 

2890 PRINT FNfeS <21,1,7,41>;clsS;" C 4224 3 
Choisissez votre action (P-E-F) 

2900 GOSUB 440 t 803 3 

2910 IF QS="P"THEN PRINT clsS:GOTO C 2375 3 
2960 

2920 IF QS="E"THEN PRINT clsS:GOTO E 2353 3 


3200 

2930 IF Q3="F"THEN PRINT clsS:GOTO E 
3450 

2940 GOTO 2880 t 

2950 ’ -PLACEMENT-E 

2960 PRINT clsS;FNfeS<15,24,2,15); F E 
NcuS(O.O);" PLACEMENT 
2970 X1=0:Y1=0 E 

2980 PRINT FNfeS(21,1,7,41>;clsS;" E 
ENTREZ LES COORDONNEES DE LA CAS 
E":PRINT:PRINT” première donnée 
-> ";:rrS=" M 

2990 GOSUB 370:IF qS=CHRS(13)THEN 3 t 
010 

3000 PRINT qS; :rrS=rrS+qS: GOTO 2990 E 
3010 pl=VAL(rrS): IF pl=0 THEN 2880 E 
3020 PRINT:PRINT:PRINT" deuxième E 
donnée -> ";:rrS="” 

3030 GOSUB 370:1F qS=CHRS<13)THEN 3 E 
050 

3040 PRINT qS;:rrS=rrS+qS:GOTO 3030 l 
3050 p2=VAL(rrS) : IF p2=0 THEN 2880 I 
3060 IF P1<1 OR Pl>40 OR P2<1 OR P2 E 


>40 THEN PRINT 

‘ CHRS(7); : 

GOTO 

2970 

3070 

IF 

PK11 

THEN Y1=P1 


t 

3080 

10 

IF 

Pl>10 

AND Pl<21 

THEN 

X1=P1- E 

3090 

PI 

IF 

Pl>20 

AND Pl<31 

THEN 

Yl=31- E 

3100 

PI 

IF 

PI >30 

AND PI<41 

THEN 

Xl=41- C 

3110 

IF 

P2< 11 

THBN Y1=P2 

l 

3120 

10 

IF 

P2> 10 

AND P2<21 

THEN 

X1=P2- E 

3130 

P2 

IF 

P2>20 

AND P2<31 

THEN 

Yl=31' E 

3140 

P2 

IF 

P2>30 

AND P2<41 

THEN 

Xl=41- E 


3150 IF X1=0 OR Y1=0 THEN PRINT CHR E 
S(7); : GOTO 2970 

3160 IF T(XI,Yl)=l THEN PRINT CHRS< E 
7); : GOTO 2970 

3170 PRINT clsS;FNfeS(11,51,11,20); E 
FNcuS(yl-1,xl*2-2>;pionlS; 

3180 T(XI,Y1) = 1:VV=VV+1: GOTO 2880 E 

3190 * -EFFACEMENT-E 

3200 PRINT clsS;FNfeS(15,24,2,15); F E 
NcuS (0,0);" EFFACEMENT "; 

3210 X1=0:Y1=0 C 

3220 PRINT FNfeS<21,1,7,41);clsS;" E 
ENTREZ LES COORDONNEES DE LA CAS 
E":PRINT:PRINT" première donnée 
-> ”; :rrS="" 

3230 GOSUB 370:IF qS=CHRS(13)THEN 3 E 
250 

3240 PRINT qS;:rrS=rrS+qS:GOTO 3230 E 
3250 pl = VAL(rrS>: IF pl = 0 THEN 2880 E 
3260 PRINT:PRINT:PRINT" deuxième E 
donnée -> "; :rrS="" 

3270 GOSUB 370:IF q$=CHRS(13)THEN 3 E 
290 

3280 PRINT qS;:rrS=rrS+qS:GOTO 3270 E 
3290 p2=VAL(rr$>: IF p2=0 THEN 2880 E 
3300 IF P1<1 OR PI>40 OR P2<1 OR P2 E 
>40 THEN PRINT CHRS(7);:GOTO 3210 
3310 IF P1<11 THEN Y1=P1 E 

3320 IF Pl>10 AND Pl<21 THEN X1=P1- E 
10 

3330 IF PI>20 AND Pl<31 THEN Yl=31- E 
PI 

3340 IF Pl>30 AND Pl<41 THEN Xl=41- E 
PI 


2362 3 

794 3 
1831 3 
3478 3 

793 3 
7248 3 


2194 3 

2126 3 
1974 3 
3530 3 

2184 3 

2116 3 
1980 3 
4004 3 

1423 3 

2129 3 

2104 3 

2130 3 

1388 3 
2159 3 

2166 ] 

2105 3 

2987 ] 

2864 3 

3506 3 

2062 3 
1836 3 
3487 3 

781 3 
7236 3 


2188 3 

2120 3 
1980 3 
3536 3 

2196 3 

2128 3 
1986 1 
3989 3 

1368 3 
2126 3 

2101 3 

2136 3 
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MISSION DETECTOR 


3350 IF P2C11 THEN Y1=P2 t 1426 3 

3360 IF P2>10 AND P2<21 THEN X1=P2- C 2133 ] 
10 

3370 IF P2>20 AND P2<31 THEN Yl=31- [ 2108 I 
P2 

3380 IF P2>30 AND P2<41 THEN Xl=41- t 2175 ] 
P2 

3390 IF X1 = 0 OR Y1=0 THEN PRINT CHR t 2981 ] 
S (7); : GOTO 3210 

3400 IF T <X1,Yl)=0 THEN PRINT CHRS< t 2848 ] 
7) ; : GOTO 3210 

3410 PRINT clsS;FNfeS <11,51,11,20); [ 3502 I 
FNcuSCyl-1,xl*2-2>;pionOS ; 

3420 T<X1,Yl>=0:VV=VV~1 [ 1383 ] 

3430 GOTO 2880 t 789 I 

3440 ' -FIN PLACEMENT-[ 1899 I 

3450 PRINT clsS;FNfeS <15,24,2, 15); F C 3598 ] 
NcuSCO,0);"FIN PLACEMENT”; 

3460 IF VV=6 THEN 3490 t 1274 I 


3470 PRINT FNfeS <21,1,7,41>;clsS;" [ 

PLACEMENT INCORRBC 
T”:PRINT:PRINT:PRINT” (6 bas 

es ni plus ni moins)”:PRINT:PRINT:F 
OR 1 = 1 TO 20:PRINT CHRS(7); :NEXT: PR 
INT” pressez espace”; 

3480 GOSUB 440:GOTO 2880 C 

3490 PRINT FNfeS<21,1,7,41);clsS;” [ 

PLACEMENT CORRECT 
PRINT:PRINT:PRINT CHRS (7);” 
pressez espace pour départ”; 

3500 GOSUB 440:PRINT FNfeS<11,51,11 I 
, 20 ) ; 

3510 FOR 1=1 TO 10:FOR J=1 TO 10 [ 

3520 IF t ( j,i) = l THEN PRINT FNcuSCi t 
-1,J*2-2);pionOS;CHRS(7); 

3530 NEXT J,I:PRINT FNfeS<7,1,20,41 C 
);clsS; :PRINT FNfeS<3,1,24,41); :PRI 
NT;PRINT:PRINT 

3540 GOSUB 610:GOTO 770 C 


10 ' Mission detector - chargeur 1 

C 

2163 3 

F5DD5E 

20 ' 

C 

169 3 

130 DATA 

30 ' CHARGEUR 1 - a effacer apres 1 

[ 

2680 3 

CD7EF4 

ancement 



140 DATA 

40 ' 

[ 

171 3 

00DD56 

50 'chargeur pour transfert de tabl 

[ 

3403 3 

150 DATA 

e de caractères 



00DD6E 

60 ’ 

I 

173 3 

160 DATA 

70 OPEN ”0",1,"DCODE.TXT” 

[ 

1478 3 

FFB820 

80 FOR i = l TO 11:READ aS: FOR J = 1 TO 

[ 

5285 3 

170 DATA 

31 STEP 2:a=VAL<”&H”+MIDS<aS,j,2)> 



2128F5 

:PRINT #1,a:NEXT j,i 



180 DATA 

90 PRINT #1,16,238,201:CLOSE #1 

c 

1737 3 

E5DDE1 

100 DATA C395F4C3B2F4C3E7F4DD210100 

c 

2344 3 

190 DATA 

DD6E00 



El 0608 

110 DATA DD660111570019113000010300 

[ 

2201 3 

200 DATA 

EDB0C9 



23FD23 

120 DATA CD7EF4019FF4F7E900C9DD2131 

t 

2407 3 



00DD5601210OB8010008EDB0C9 t 
01BCF4F7E900C9DD2131F5DD5E C 
01D5DDE1FD2100B8010008FD66 t 
00DD7400FD7500DD23FD230B3E 
EAC9CD7EF401F1F4F7E900C9DD 
DD6E002600292929EB2100B819 
FD2131F5FDÔB00FD660119E5FD 
DD6BOOFD6600FD7500DD7400DD 


10 ' Mission dôtector - chargeur 2 I 

2218 3 

187E00 

20 ' C 

169 3 

170 DATA 

30 ' ce chargeur est à effacer apré t 

3289 3 

6CEB00 

s l'avoir lancé 


180 DATA 

40 ' C 

171 ] 

C6F8C0 

50 'chargeur 2 - pour nouvelle tab C 

3346 3 

190 DATA 

le de caractères 


663C0O 

60 ’ C 

173 3 

200 DATA 

70 OPBN ”0”,1,”DJEU.CAR" t 

1381 3 

6C3800 

80 FOR i=l TO 128:READ bS [ 

1440 3 

210 DATA 

90 PRINT #1,bS:NEXT i:PRINT #1,"C3” [ 

2627 3 

7C6060 

: CLOSE #1 


220 DATA 

100 DATA 000066DBDBDB66003C42819981 t 

2257 3 

7C6060 

423C00 


230 DATA 

110 DATA FEC6C0C0C0C0C0001038386C6C [ 

2332 3 

180C00 

C6FE00 


240 DATA 

120 DATA 3C42A599A5423C000000002418 t 

2168 3 

6CC700 

240000 


250 DATA 

130 DATA 000018007E0018000000181800 [ 

2118 I 

DB7E0O 

666600 


260 DATA 

140 DATA FE6C6C6C6C6C6C00181818187B C 

2319 3 

001800 

3C1800 


270 DATA 

150 DATA FEC6603060C6FE00002060FEFE [ 

2285 3 

6C6C00 

602000 


280 DATA 

160 DATA 00080CFEFEOC08000018187E18 I 

2265 3 

66C600 


002466FFFF6624007CC6C6C6C6 
000073DBCCDE73007CC6C6FCC6 
66663C6666663C003C603C6666 
00001E307C301E00386CC6FBC6 
00C06030386CC6000000666666 
OOOOFE 6 C 6 C 6 C 6 COOOOOO 3 C 6666 
00007ED8D8D870000073CE1818 
03063C66663C60C000E63C1838 
03066666663C60C0000066C3DB 
00000000000000001818181818 
6C6C6C00000000006C6CFE6CFE 
183E583C1A7C180000C6CC1830 


12381 3 

1420 I 
7937 I 

2278 I 

1832 I 
3524 I 

5233 I 

1364 I 


2300 I 
2373 I 
2321 I 
2344 I 
2410 J 
2309 î 
2350 I 
2346 I 


2351 3 
2391 ] 
2248 I 
2269 ] 
2192 3 
2257 3 
2246 3 
2254 3 
2263 3 
2088 3 
2321 3 
2269 3 
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MISSION DETECTOR 


290 DATA 386C3876DCCC76001818180000 C 2214 ] 
000000 

300 DATA 0C18303030180C0030180C0C0C C 2175 3 
183000 

310 DATA 00663CFF3C6600000018187B18 C 2206 3 
180000 

320 DATA 00000000001818300000007E00 [ 2080 1 
000000 

330 DATA 0000000000181800060C183060 t 2120 ] 
C08000 

340 DATA 386CCED6E66C38001838181818 [ 2282 ] 
187E00 

350 DATA 3C66063C60667E003C66061C06 C 2242 1 
663C00 

360 DATA 1C3C6CCCFB0C1B007E62607C06 [ 2332 3 
663C00 

370 DATA 3C66607C66663C007E66060C18 C 2240 3 
181800 

380 DATA 3C66663G66663C003C66663E06 [ 2261 ] 
663C00 

390 DATA 00001818001818000000181800 [ 2113 ] 
181830 

400 DATA OC18306030180C0000007B007B t 2154 3 
000000 

410 DATA 6030180C183060003C66660C18 I 2169 3 
001800 

420 DATA 300C780C7CCC7600183C66667E [ 2272 3 
666600 

430 DATA FC66667C6666FC003C66C0C0C0 [ 2314 3 
663C00 

440 DATA F86C6666666CF800FE62687868 [ 2325 3 
62FE00 

450 DATA FE6268786860F0003C66C0C0CB r 2305 3 
663B00 

460 DATA 6666667B666666007E18181818 [ 2237 3 
187E00 

470 DATA 1E0C0C0CCCCC7800E6666C786C C 2350 3 
66B600 

480 DATA F06060606266FEOOC6EEFBFBD6 [ 2370 3 
C6C600 

490 DATA C6B6F6DBCEC6C6007CC6C6C6C6 [ 2427 3 
C67C00 

500 DATA FC66667C6060F0007CC6C6C6DA l 2345 3 
CC7600 

510 DATA FC66667C6C66E6003C66603C06 t 2289 3 
663C00 

520 DATA 7E5A181818183C006666666666 t 2235 3 
663C00 

530 DATA 66666666663C1800C6C6C6D6FB [ 2336 3 
BEC600 

540 DATA C66C38386CC6C6006666663C18 [ 2280 1 
183C00 

550 DATA FEC68C183266FB003844380000 [ 2230 3 
000000 

560 DATA 003C6660663COC381E30386C38 C 2244 3 
18F000 

570 DATA 183C7B18181818000000000000 C 2177 3 
OOOOFF 

580 DATA 30180C00000000000000780C7C C 2181 3 
CC7600 

590 DATA E0607C666666DC0000003C6660 [ 2242 3 
663C00 

600 DATA 1C0C7CCCCCCC760000003C667B C 2314 3 
603C00 

610 DATA 1C3630783030780000003B6666 t 2205 3 
3E067C 

620 DATA E0607C666666E6001800381818 C 2219 3 
183C00 

630 DATA 06000E060666663CE060666C78 I 2251 3 
6CB600 

640 DATA 3818181818183C0000006CFBD6 t 2259 3 
D6C600 


650 DATA O00ODC666666660O00003C6666 C 2204 3 
663C00 

660 DATA OOOODCÔ6667C60F0000076CCCC C 2311 3 
7C0C1E 

670 DATA 0000DC766060F00000003C603C C 2207 3 
067C00 

680 DATA 30307C3030361G000000666666 [ 2179 3 
663B00 

690 DATA 00006666663C18000000C6D6D6 t 2253 3 
FE6COO 

700 DATA 0000C66C386CC6000000666666 C 2236 3 
3E067C 

710 DATA 00007E4C18327EOOOC303C667E [ 2239 3 
603G00 

720 DATA 300C006666663C00300C3C667E [ 2227 3 
603C00 

730 DATA 0066000000000000386CC6C6C6 C 2195 3 
6C3800 

740 DATA 00003C3C3C3C00001818FFOOOO [ 2231 3 
FFOOOO 

750 DATA 24242427272424242424272020 [ 2142 3 
3F0000 

760 DATA OOOOFFOOOOFF18182424242424 [ 2193 3 
242424 

770 DATA 00003F20202724242424272020 [ 2136 3 
272424 

780 DATA 242424E4E42424242424E40404 C 2213 3 
FCOOOO 

790 DATA 0000FF0Û00FF00002424E70000 t 2214 3 
FFOOOO 

800 DATA 0000FC0404E424242424B40404 t 2202 3 
E42424 

810 DATA 0000FF0000B724242424E70000 [ 2199 3 
E72424 

820 DATA 00000018180000001818181818 C 2099 3 
000000 

830 DATA 0000001F1F0000001818181F07 [ 2140 3 
000000 

840 DATA 00000018181818181818181818 [ 2155 3 
181818 

850 DATA 000000071F1818181818181F1F [ 2196 1 
181818 

860 DATA OOOOOOF 8 F 8 OOOOOOI 8 1818F8E0 t 2178 3 
000000 

870 DATA 000Û00FFFF000000181818FFFF [ 2244 J 
000000 

880 DATA OOOOOOEOF8181818181818F8F8 t 2234 3 
181818 

890 DATA 000000FFFF181818181818FFFF t 2300 3 
181818 

900 DATA 8080808080808OFFO101010101 l 2186 3 
0101FF 

910 DATA 80838F9F8F8380FF01C1F1F9F1 l 2372 3 
C101FF 

920 DATA 01113111117D01FF0179053961 [ 2233 3 
7D01FF 

930 DATA 01790519057901FF011929497D t 2252 3 
0901FF 

940 DATA 017D4179057901FF013D417945 t 2265 3 
3901FF 

950 DATA 017D4509111101FF0139453945 t 2235 3 
3901FF 

960 DATA 0139453D057901FF0139454545 [ 2249 3 
3901FF 

970 DATA 8088988888BB80FF80BC829CB0 C 2398 3 
BE80FF 

980 DATA 80BC828C82BC80FF808C94A4BE t 2396 3 
8480FF 

990 DATA 80BBA0BC82BC80FF809EAOBCA2 C 2435 3 
9C80FF 

1000 DATA 80BEA284888880FF809CA29CA [ 2419 3 
29C80FF 
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1010 DATA 809CA29E82BC80FF191919191 t 2340 3 
9191919 

1020 DATA 9898989898989898000000000 [ 2301 3 
0FF00FF 

1030 DATA OOFFOOOO00000000000000030 ( 2222 3 
E38E0FF 

1040 DATA 0F39E181010101FFE0B88E838 [ 2346 3 
08080FF 

1050 DATA 00000080E0380EFFE0380E030 t 2241 3 
0000000 

1060 DATA 01010181E1390F03071C70COO C 2205 3 
0000000 

1070 DATA 80808081879CF0C000FE82929 [ 2327 3 
282FBOO 

1080 DATA 0C30666666663CO01866183C6 [ 2279 3 
67E6600 

1090 DATA 18667E607C607E0018667B181 [ 2303 3 
8187E00 

1100 DATA 18663C6666663C00186666666 [ 2268 3 
6663C00 

1110 DATA 300C183C667E6600300C7B607 [ 2298 3 
C607E00 

1120 DATA 300C7E1818187E00300C3C666 [ 2285 3 
6663C00 

1130 DATA 300C666666663C006600663C1 [ 2244 3 
8181800 

1140 DATA 6600183C667B660066007E607 [ 2281 3 
C607E00 

1150 DATA 66007E1818187E0066003C666 [ 2268 3 
6663C00 

1160 DATA 6600666666663C003C66C0C06 [ 2279 3 
63C0018 

1170 DATA 3E78D8FED8D8DE001800183C6 C 2382 3 
67E6600 

1180 DATA 7ACCCED6E666BC00324C00667 [ 2380 3 
66E6600 

1190 DATA 324C003C667E6600324C3C666 [ 2295 3 


6663C00 

1200 DATA C0300C30CC30C000061860186 [ 2238 3 
6180600 

1210 DATA 060C7E187E3060000000324CO [ 2233 3 
07E0000 

1220 DATA 7E40404242427E007E4040784 [ 2248 3 
0407E00 

1230 DATA 4262524A464242007E4040404 t 2220 3 
0407E00 

1240 DATA 7B4242427E4242007E42427E4 t 2261 3 
8444200 

1250 DATA 7C42427C42427C007E4242424 t 2270 3 
2427E00 

1260 DATA 00007E407E027E0000007E424 C 2247 3 
2427E00 

1270 DATA 3C2420782020700020207C202 t 2202 3 
0223E00 

1280 DATA 0838080808081C007E42427EO [ 2256 3 
2027EOO 

1290 DATA 18181818181818007E40407E4 t 2253 3 
2427E00 

1300 DATA OOOOOOOOOOOOOOFFOOOOOOOOO [ 2210 3 
000FFFF 

1310 DATA 0000000000FFFFFF00000000F t 2387 3 
FFFFFFF 

1320 DATA OOOOOOFFFFFFFFFFOOOOFFFFF [ 2564 ] 
FFFFFFF 

1330 DATA OOFFFFFFFFFFFFFFFFFFFFFFF [ 2741 3 
FFFFFFF 

1340 DATA 00007ACCD666BC00002060FEF [ 2321 3 
E602000 

1350 DATA 181818187E3C1800183C7E181 [ 2273 3 
8181800 

1360 DATA OOO 8 OCFEFEOCO 8 OO181818187 t 2319 3 
E3C1800 

1370 DATA 55AA55AA55AA55AAFFFFFFFFF [ 2613 3 
FFFFFFF 


ABONNEZ-VOUS A AM-MAG 

Oui, je m’abonne à AM-MAG pour 12 numéros 
+ 4 hors-série 

au prix de 275 F (au lieu de 340 F) 

□ Europe : 375 F □ Airmail : 400 F 

Je choisis en cadeau 2 numéros hors-série nn°1 nn°2 an°3 on°4 nn°5 

Nom :__ Prénom :_ 

Adresse :_ 

Code postal :_ Ville :_ 

Règlement par : □ chèque bancaire □ chèque postal □ mandat 
à adresser à : AM-MAG Service Diffusion 

5/7, rue de l'Amiral Courbet 94160 Saint-Mandé 


Date : 

Signature : 
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La meilleure couverture de l'actualité AMSTRAD 



12 N° s + 4 Hors-Série 

c 240 F* 

I au lieu de v“v I 


2-GARANTIE 

Vous pouvez mettre fin à votre 
abonnement à tout moment. Il 

vous suffit de nous adresser un courrier avec votre signature. Nous nous engageons 
à vous rembourser le solde de votre abonnement restant à courir. 


(* Prix de vente au numéro : 
2 N° s à 20 F + 4 HS à 25 F) 


Vous bénéficiez 
de 3 avantages 

1- ECONOMIE 

65 F 


r 


3- CADEAU : 2 N° s HORS-SERIE à choisir parmi les N° s parus en 87 



1. Amstrad 
de A à Z 


2. Spécial 
listings 


3. Guide des 
Logiciels 


4. Spécial 
Matériel 





A sr , 


■ Abonnement à AM MAG 


□ Oui, je m'abonne à AM MAG pour 12 N° s + 4 HS au prix de 275 F (au lieu de 340 F) 

□ Europe : 375 F □ Airmail : 400 F 

D Je choisis en cadeau 2 numéros Hors Série : □ N° 1 □ N° 2 □ N° 3 □ N° 4 
Règlement par : □ Chèque Bancaire □ Chèque Postal □ Mandat 


à adresser à : 

AM MAG Service Diffusion 

5/7, rue de l'Amiral Courbet 
94160 SAINT-MANDE 


NOM : .Prénom : 

Adresse. 


































ENFIN UN SERVEUR 
COMPLETEMENT MICRO ! 



QUAND LA MICRO DEVIENT TRISTE... QUAND 
LES BUGS VOUS RONGENT... QUAND LE TURBIN 
VOUS MINE... QUAND LES BITS SE BATTENT... 
QUAND VOTRE TETE S’ENTETE... QUAND VOS 
OCTETS HOQUETTENT... QUAND VOS SPOOLS 
ONT DES DENTS... QUAND VOTRE CLAVIER 
S’ENCLAVE... QUAND LES LOGICIELS SE COU¬ 
VRENT... QUAND LES 
QUAND LE HARD SE 
ARCADES SOURCILLE 
SOFTS SONT TROP DU 
QUAND BAT CERE^ 


...DES INFOS 
T...DES BIDOUILLES 
DES MESSAGERIES... 
DE... ET BIENTOT LE 
TELECHARGEMENT 



























